habe foldenden Code im formu gefunden und wollte Ihn gerne anapssen. Bei der Ausführung werden mir aber alle Zeile gelöscht. Wahrscheilich ist es momentan zu heiss im Büro. Finden den Fehler einfach nicht.
Danke und Gruss
Maruseru
Sub Delete_Assets()
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Range("B" & i).Text "CHDA*" And _
Range("B" & i).Text "CHMA*" And _
Range("B" & i).Text "?ZRH*" Then
Rows(i).Delete Shift:=xlUp
End If
Next i
End Sub