ich hatte zuerst nur den Code "ActiveCell.EntireRow.Delete Shift:=xlUp".
Den wollte ich aber so umschreiben das der in einem Tabellenblatt nur in bestimmten Zeilen möglich ist, damit man nichts flasches löscht. Irgendwie bekomm ich das aber nicht hin :(
If ActiveCell.Rows("18:500") Then
ActiveCell.EntireRow.Delete Shift:=xlUp
Else
MsgBox "Diese Zeile kann nicht gelöscht werden!"
End If
Kann mir da einer weiterhelfen bei meinem Denkfehler. Vielen dank schon mal im Voraus.
Gruß
Daniel