Hallo zusammen,
ich möchte bei einer Tabelle zur letzten beschrieben Spalte gehen und dann rechts davon eine neue Spalte einfügen.
Dafür habe ich folgenden Code:
Worksheets("Tabelle1").Activate 'Arbeitsblatt ansprechen
Dim Spaltenanzahl3 As Integer
Spaltenanzahl3 = Sheets("Tabelle1").Cells(4, Columns.Count).End(xlToLeft).Column
Columns(Spaltenanzahl3).Offset(1, 0).Select 'Die richtige Spalte ansprechen
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 'Neue Spalte einfügen
Leider scheint der Befehl Columns(Spaltenanzahl3).Offset(1,0) nicht zu funktionieren aufgrund des Offset.
Kann mir dort jemand helfen?
Freundliche Grüße