Zeilen nach Bedingung löschen
10.07.2022 17:29:27
Fred
ich habe eine Frage zum Löschen von Zeilen, wenn in der ersten Spalte (A) das Wort "Commission" steht
Ich lösche bisher Zeilen so:
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
For t = lz To 9 Step -1 'Zählung rückwärts bis Zeile 9
'Abfragen, ob in der ersten Spalte "Commission" steht
If Cells(t, 1).Value = "Commission" Then
Rows(t).Delete Shift:=xlUp
End If
Wie aber ändere ich das Makro, wenn die Zeilen gelöscht werden sollen, welche in Spalte "A" unter anderen das Wort "Commission" beinhalten?
Kann mir bitte ein Experte die Lösung geben?!
Gruss
Fred
Anzeige