ich möchte mittels einem Makro eine Zeile in einer Liste suchen und löschen.
Ich habe eine Vorgangsnummer bereits in einem Blatt angegeben. Diese soll das Makro auslesen, die Suche starten und die gefundene Zeile löschen.
Gruß
Walter
Sub suchen()
On Error GoTo errorhandler
such = InputBox("Bitte den Suchbegriff eingeben")
' alles markieren
Cells.Select
' suchen
Selection.Find(What:=such, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
' gefundene Zelle löschen
ActiveCell.Delete
MsgBox ("Nummer gelöscht!")
Range("A1").Select
Exit Sub
'bei Fehler Nachricht geben
errorhandler:
MsgBox ("Nummer konnte nicht gefunden werden")
End Sub