Hallo zusammen,

aktuell nutze ich folgendes Makro um komplette Zeilen zu löschen, wenn die Bedingung Sendungsnummer nur einmal vertreten in der Liste und die Zeile mit Bemerkung gefüllt ist.

Sub Einzelne_löschen()

Dim x As Long
 
   For x = Cells(Rows.Count, 9).End(xlUp).Row To 6 Step -1
      If WorksheetFunction.CountIf(Columns(9), Cells(x, 9).Value) = 1 _
      And Cells(x, 1).Value <> "" Then Rows(x).Delete
   Next x
 
End Sub

Für eine neue Liste würde ich das Makro gerne umbauen, bin mir aber nicht sicher, ob ich mit der angedachten Bedingung arbeiten kann. In der neuen Liste soll es so sein das wenn die Zeile ab A6 grün gefärbt ist, dass die komplette Zeile gelöscht wird.

Geht das als Makro? Wenn ja hättet ihr da eine Idee, wie?

Danke euch im Voraus.