ich habe folgendes Problem ich will Zeilen ab der Zeile 20 bis zur letzten verwendeten Zeile löschen können. Aber die letzte Zeile soll man nicht löschen können. Folgender Code (von Peter) läuft gut. Nur meine 2 Bedingung mit der letzten verwendeten Zeile stimmt nicht. Was mache ich falsch ?
Sub ZeileLöschen()
Dim lngZeile As Long
ActiveSheet.UsedRange.Rows.Count = lngZeile
If ActiveCell.Row > 19 And ActiveCell.Row < lngZeile Then
On Error GoTo Fehler
Application.EnableEvents = False
Rows(ActiveCell.Row).Delete
Application.EnableEvents = True
Else
MsgBox "Löschen in diesem Bereich nicht möglich !!!"
End If
Exit Sub
Fehler:
Application.EnableEvents = True
End Sub
Danke für eure Hilfe
mfg
hubert