Hallo Leute,
ich habe eine Schaltfläche eingefügt und das Makro (siehe unten) auszuführen.
Bevor das Makro ausgeführt wird soll als Schaltfläche-Text dies "Zeilen ausblenden" stehen.
Beim Klick auf die Schaltfläche soll dann dies "Zeilen einblenden" stehen. Also immer abwechselnd.
Was muss ich ändern?
Sub Zeilen_EIN_AUS_1()
'wenn in Spalte A der Zelleninhalt der Zelle mit Farbe 37 (ColorIndex 37) dargestellt ist,
'dann wird diese ZEILE ausgeblendet werden.
'Beim erneuten Ausführen des Makros werden diese Zeilen wieder eingeblendet.
Dim rng As Range
Application.ScreenUpdating = False ' "Bildschirmflackern" vermeiden
For Each rng In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
rng.EntireRow.Hidden = Not rng.EntireRow.Hidden And rng.Font.ColorIndex = 37
Next
End Sub
Private Sub CommandButton1_Click()
Call Zeilen_EIN_AUS_1
End Sub
Vielen Dank im Voraus...
Liebe Grüße
Selma