wie muß die VBA-Formel lauten?
Ich habe 30 Spalten und muß zwischen jeder Spalte eine neue Leerspalte einfügen, die 1. leere neue Spalte soll Spalte 1 sein.
Vielen Dank
Petra
Sub Addiere30Mehr()
Dim ly As Long
For ly = 30 To 1 Step -1
ActiveSheet.Columns(ly).EntireColumn.Insert
Next ly
End Sub
GreetZ Renée
Sub Spalten_rein()
Dim i%
For i = 30 To 1 Step -1
ActiveSheet.Columns(i).Insert Shift:=xlToRight
Next i
End Sub
gruß UD