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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen