Wenn ich irgendeine Zeile markiere, sollen die restlichen Zeilen bis zur Zeile 65536 markiert und gelöscht werden.
Im Voraus besten Dank für Tipps
Thomy
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.EntireRow.Address = Target.Address And Target.Rows.Count = 1 Then
Range(Target.Row & ":65536").Delete
End If
End Sub
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