Zeilen ausblenden, außer wenn in Zelle ...?
27.10.2008 18:13:00
Selma
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet werden
Bei erneutem Klick auf CommandButton sollen alle Zeilen angezeigt werden.
Anbei ein Versuch:
Private Sub CommandButton1_Click()
Dim rng As Range
Application.ScreenUpdating = False ' "Bildschirmflackern" vermeiden
If CommandButton1.Caption = "Alle anzeigen" Then
CommandButton1.Caption = "Nur PLT-Dateien anzeigen"
Rows.Hidden = False
Else
CommandButton1.Caption = "Alle anzeigen"
For Each rng In Range("M4:M" & Cells(Rows.Count, 1).End(xlUp).Row)
If rng.Interior.ColorIndex = 15 Then rng.EntireRow.Hidden = True
If rng "plt" Then rng.EntireRow.Hidden = True
Next
End If
Application.ScreenUpdating = True
End Sub
Was muss ich ändern?
Besten Dank im Voraus !
Liebe Grüße,
Selma