wenn ich in der Zelle B2 stehe, sollte bis zur letzten belgten Zelle
in der Spalte B selektiert werden.
1. Dann sollten die Daten gelöscht werden. oder
2. löschen und nach links verschieben in die Spalte C.
mfg kurt k
Range(Selection.Cells(1), Cells(IIf(IsEmpty(Cells(Rows.Count, 2)), _
Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count), 2)).Cut Selection.Cells(1).Offset(0, 1)
Die Zellen werden nach rechts verschoben aus B nach Spalte C.
Range(Selection.Cells(1), Cells(IIf(IsEmpty(Cells(Rows.Count, Selection.Cells(1).Column)), _
Cells(Rows.Count, Selection.Cells(1).Column).End(xlUp).Row, Rows.Count), _
Selection.Cells(1).Column)).Cut Selection.Cells(1).Offset(0, -1)
Beachte bitte: wenn du den Code in Spalte A ausführst wird dein Fehler ausgegeben.