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