nach folgenden Code habe ich hier im Forum gefunden.
Wie kann ich den Code aufbessern, dass die Löschroutine mit msgbox-Nachricht abbricht, wenn keine "Löscheintragungen" zu finden sind. Derzeit bleibt das Makro einfach hängen, wenn in Spalte 3 keine 9999 zu finden ist.
Vielen Dank
Dietmar aus Aachen
Sub ZeilenLoeschen()
'Zeile löschen wenn in Spalte 3 die Zahl 9999 stehtLöschroutine
Dim i&
Const spalte = 3 'Sp A - anpassen
Const such = 9999 'bei Zahlen ohne ""
For i = Cells(Rows.Count, spalte).End(xlUp).Row To 1 Step -1
If Cells(i, spalte).Value = such Then Rows(i).Delete
Next i
End Sub