Office: Zeilen mit bestimmter Füllfarbe löschen VBA

Hallo zusammen,

ich würde gerne per Makro alle Zeilen mit der Füllfarbe helltürkis löschen. Das habe ich bisher:

Code:

Sub farbige_loeschen()

For rwIndex = 1 To 2500
        With Worksheets("Daten").Rows(rwIndex)
            If .Interior.ColorIndex = 34 Then
            .Delete
            End If
        End With
Next rwIndex


End Sub

Leider tut sich beim Ausführen gar nix. Hat jemand ne Idee, woran das liegen könnte?

Grüßle, MatM

 

Hallo,

kann es sein, dass nicht alle Zellen der infragekommenden Zeilen den gleichen COLORINDEX besitzen?
Du erfragst in der FOR-Schleife jeweils die Hintergrundfarbe der ganzen Zeile. Nur dann, wenn alle Zellen der jeweiligen Zeile den gleichen COLORINDEX besitzen, wird dieser als Wert in der IF-Zeile zurückgeliefert - anderenfalls jedoch der Variant-Wert NULL.

 

Hi,

ahh, das erklärt einiges. Die Farbe ist nur im Bereich A:EJ enthalten...
Kann man das noch irgendwie reinbringen (mit range etc.)?

Grüßle, Corsar9003

 

Hallo!

Am pflegeleichtesten ist es, wenn man nur jeweils 1 Zelle pro Zeile für den Farbtest auswählt, denn dann kann kein NULL-Wert bei der Eigenschaft COLORINDEX auftreten:

Code:

Sub farbige_loeschen()

With Worksheets("Daten")
   For rwIndex = 1 To 2500
            If .Cells(rwIndex, 1).Interior.ColorIndex = 34 Then
            .Rows(rwIndex).Delete
            End If
   Next rwIndex
End With

End Sub

Dadurch wird immer die Zelle in Spalte A des Arbeitsblattes 'Daten' überprüft.
Falls Du die Löschung nur dann vornehmen möchtest, falls alle Zellen von Spalte A bis Spalte EJ einen COLORINDEX=34 besitzen,
dann müsste das Makro zB. so lauten (Spalte EJ ist die 140. Spalte des Arbeitsblattes):

Code:

Sub farbige_loeschen()

With Worksheets("Daten")
   For rwIndex = 1 To 2500
            If .Cells(rwIndex, 1).Resize(1,140).Interior.ColorIndex = 34 Then
            .Rows(rwIndex).Delete
            End If
   Next rwIndex
End With

End Sub

Achtung: Obiger Code wurde EDITIERT !!

 

Vielen Dank für die super Hilfe, Anton! Funktioniert einwandfrei.
Aus irgendeinem Grund muss ich das Makro zwar mehrere Male ausführen, bis alle Zeilen gelöscht sind. :-)
Aber ist genau die Funktion die ich brauche!

Grüßle, Corsar9003

 

Hallo!

Hast Du meine letzte Version ausprobiert?
Ich habe leider erst im nachhinein festgestellt, dass meine Makros nicht die ganze Zeile löschen, sondern nur die getesteten Zellen der Zeile.

Die jetzt vorliegenden Makros müssten tatsächlich die ganze Zeile auf einmal löschen, falls der Farbtest positiv ausgeht.

 

Jupp, die letzte Version läuft perfekt!
Vielen Dank nochmals für deine Hilfe!

Grüßle, Corsar9003