Das Makro ist folgendes:
Sub Löschen()
Dim Wert As String
Dim I As Integer
Wert = InputBox("Bitte den Suchbegriff eingeben", "Suchbegriff")
If Wert = "" Then Exit Sub
For I = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If Cells(I, 2) = Wert Then Rows(I).Delete
Next
End Sub
Nun hätte ich gerne, dass ich eine Meldung erhalte dass die Löschung Erfolgreich war bzw. der Datensatz ev. nicht gefunden wurde.
Kann mir das jemand ergänzen?
Danke