wie kann ich eine Tabelle bestehend aus 3 Spalten (A,B,C) um eine Spalte nach rechts verschieben, sodass sie am Ende in den Spalten B,C,D stehen? Mit VBA-Code.
Freue mich über Vorschläge!
LG
Jaylan
Sub TabNachRechts()
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select 'Zelle A1 wird aktiviert
End Sub
Sub Jaylan()
Range(Cells(1, 1), Cells(Rows.Count, 2).End(xlUp).Offset(, -1)) = Date
End Sub
Gruß GerdSub TabNachRechts()
Sheets("Tabelle1").Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:= _
xlFormatFromLeftOrAbove
Range("A1").Select
End Sub