Hinter jeder Spalte eine neue einfügen

[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

http://www.office-loesung.de/ftopic662419_0_0_asc.php

Funktioniert das auch in Calc? Oder geht es auch einfacher

Liebe Grüße sendet Jonas

[Lupo]

Tabelle2.A1: =WENN(REST(SPALTE();2);"";INDEX(Tabelle1.$A:$IU;ZEILE();SPALTE()/2))

[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

[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

[HeritzP]

Hallo,

bei mir funktioniert es ohne Probleme.

2 Spalte .ods

(8.69 KiB) 203-mal heruntergeladen

Mit Doppelklick wird das Makro gestartet.
Zugewiesen unter Tabellenereignisse.




Gruß HeritzP