AW: Filter auf farbige Zeilen
25.04.2007 11:17:40
Oberschlumpf
Hi Hansi
Tausch den Code mal gegen diesen aus:
Sub Filter()
Dim loZeile As Long
For loZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
' xlNone = gar keine Hintergrundfarbe, '2 = weiße Hintergrundfarbe
If Range("A" & loZeile).Interior.ColorIndex = xlNone OR _
Range("A" & loZeile).Interior.ColorIndex = 2 Then
Rows(loZeile & ":" & loZeile).EntireRow.Hidden = True
Else
Rows(loZeile & ":" & loZeile).EntireRow.Hidden = False
End If
Next
End Sub
Mein Fehler war, dass ich AND verwendete. Aber OR muss es sein.
Voraussetzng, dass mein Code funktioniert, ist, dass in Spalte A in der letzten benutzten Zeile etwas steht.
Wenn in deiner Tabelle in Spalte A nix steht, musst du den Code wie folgt anpassen:
Ändere diese Zeile
For loZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
um in
For loZeile = 1 To Cells(Rows.Count, DeineSpalte).End(xlUp).Row
für DeineSpalte setzt du die Spaltenzahl ein, in der auch mindestens in der letzten benutzten Zeile irgendein Wert steht.
Und der Code "geht davon aus", dass wirklich die ganze Zeile farbig markiert ist.
Wenn nun alles funzt, bleiben nur die farbigen Zeilen sichtbar.
Konnte ich nun helfen?
Ciao
Thorsten