ich habe ein Problem.
Ein Makro soll nach einer von mir angegebenen Vorgangsnummer in einer Liste suchen, soll diese Zeile markieren und löschen.
Wer kann mir helfen?
Gruß
Walter
Sub adr()
Dim such As String
m = Sheets("Tabelle2").UsedRange.Rows.Count
such = InputBox("Bitte Suchwert eingeben")
For i = 1 To m
If such = Cells(i, 1).Value Then
Rows(i).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub
Sub loeschen()
Dim c As Range, SB
SB = "DeinSuchbegriff"
Set c = Cells.Find(what:=SB, lookat:=xlWhole)
'If Not c Is Nothing Then Rows(c.Row).Select 'Zeile selektieren
'If Not c Is Nothing Then Rows(c.Row).ClearContents 'Inhalte löschen
If Not c Is Nothing Then Rows(c.Row).Delete 'Zeile löschen
End Sub