ich benutze folgenden Code, um einen Datensatz im Arbeitsblatt "SerienNr" in Spalte B auszusuchen (mit einer Inputbox), und zu löschen, wenn in Spalte C "dBa" steht.
Die Seriennummer kann 2-fach vorkommen, aber nur der Datensatz mit dBa soll gelöscht werden.
Das ganze funktioniert soweit recht gut, wenn der Datensatz mit dBa vor dem Datensatz ohne dBa steht.
Ist es umgekehrt, wird der Datensatz nicht gelöscht.
Gibt es dafür auch eine Lösung?
Sub Andreas()
Dim Mldg, Titel, Wert, Zelle
Mldg = "Serien-Nr eingeben"
Titel = "Datesatz löschen"
Wert = InputBox(Mldg, Titel)
With Worksheets("SerienNr").Columns(2)
Set Zelle = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not Zelle Is Nothing And Zelle(1, 2) = "dBa" Then
Rows(Zelle(1, 2).Row).Delete Shift:=xlUp
End If
End With
End Sub
Im Voraus schon mal herzlichen Dank.
Gruß Andreas