Office: Spalte nach Füllfarbe durchsuchen und Zeile löschen

Hallo,

neuer Tag neue Frage! :-D

Also ich habe ein Teil meiner Tabelle über die Filterfunktion in ein neues Worksheet kopiert. Nun soll bei aktivierter Checkbox "Dringend" der neue Teil durchsucht werden, ob in der letzen Spalte eine Zelle eine Füllfarbe besitzt oder nicht. Ist dies nicht der Fall, soll diese Zeile gelöscht werden.

Hintergrund ist, dass es sich um einen Wartungsplan handelt, bei dem 2 Monate vor der Nächsten Wartung der Termin Gelb markiert wird und 1 Monat vorher rot. Ist nun bei "Dringend" ein Haken, sollen nach Filterung nur diese Daten in dem neuen Blatt dargestellt werden.

Hier ist der Code, der aber irgendwie nicht funktioniert:

Code:

Worksheets("Filter").Activate
Dim Zeile As Long
Dim Spalte As Long
Dim i As Long

ActiveSheet.Cells(1, 1).Select
ActiveSheet.Paste

Zeile = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
Spalte = ActiveSheet.Cells.SpecialCells(xlLastCell).Column

If Dringend.Value = True Then
    For i = Zeile To 2 Step -1
        If Cells(i, Spalte).Interior.ColorIndex = False Then
           Rows(i).Delete
        End If
    Next i
End If

EDIT: Ich habe noch etwas ausprobiert. Ein Fehler war das Überprüfen der CheckBox hatte den Wert 1 angegeben, aber es muss True heissen. Es liegt also nur noch an der Bezeichnung

Code:

Interior.ColorIndex = False

denn wenn ich eine der verwendetet Farben (6 für Gelb) angebe, funktioniert das Löschen. Also reduziert sich meine Frage auf: Was muss ich für "Keine Füllfarbe" an Wert eingeben?

Noch_ein_EDIT:
Habe es gelöst. Hab einfach mal den ColorIndex von einem leeren Feld ausgelesen. Das Ergebnis war -4142. Damit klappt jetzt alles.

 

Hallo!

"Offiziell" heißt es
Interior.ColorIndex = xlNone

 

Ok danke.