Seite 1 von 1
Hinter jeder Spalte eine neue einfügen
Verfasst: Fr 6. Jul 2018, 13:36
von dschones
Hallo,
ich möchte hinter jeder Spalte eine neue einfügen. Ich hab für Excel folgendes Makro gefunden:
Code: Alles auswählen
Sub JedeZweiteSpalte()
Dim i As Integer
For i = ActiveSheet.UsedRange.Columns.Count To 2 Step -1
Columns(i).Insert
Next i
End Sub
Funktioniert das auch in Calc? Oder geht es auch einfacher
Liebe Grüße sendet Jonas
mit Formel, falls es nur Werte sind
Verfasst: Sa 7. Jul 2018, 10:27
von Lupo
Tabelle2.A1: =WENN(REST(SPALTE();2);"";INDEX(Tabelle1.$A:$IU;ZEILE();SPALTE()/2))
Re: Hinter jeder Spalte eine neue einfügen
Verfasst: So 8. Jul 2018, 12:44
von HeritzP
Hallo,
Code: Alles auswählen
Option VBASupport 1
Option Compatible
Sub JedeZweiteSpalte()
Dim i As Integer
For i = ActiveSheet.UsedRange.Columns.Count To 2 Step -1
Columns(i).Insert
Next i
End Sub
Gruß HeritzP
Re: Hinter jeder Spalte eine neue einfügen
Verfasst: Mi 18. Jul 2018, 16:47
von dschones
Oh, ich hab hier noch gar kein Dank ausgesprochen. Tut mir leid für die Verspätung, bin grad in den Finalen meiner Abschlussarbeit.
Vielen Dank Euch beiden! Also die Formel funktioniert einwandfrei, das Macro spuckt mir den BASIC-Laufzeitfehler '91': Objektvariable nicht belegt. Bin grad am Rausfinden, was das bedeutet..
Lieber Gruß, Jonas
Re: Hinter jeder Spalte eine neue einfügen
Verfasst: Mi 18. Jul 2018, 17:15
von HeritzP
Hallo,
bei mir funktioniert es ohne Probleme.
Mit Doppelklick wird das Makro gestartet.
Zugewiesen unter Tabellenereignisse.
Gruß HeritzP