Hallo zusammen,
Ich möchte die Ganze Zeile Ein/ausblenden wenn eine Zelle farbig ist. Am liebsten mit einem Button, oder einer Checkbox o.ä.
Ich hatte diesen Beitrag gefunden:
https://supportnet.de/fresh/2007/11/id1636767.asp
und habe für mich das Makro angepasst wie es meine Programmierkenntnisse (bisher kaum bis gar kein VBA) es mir erlaubten. folgendes kam heraus:
Sub Schaltfläche4_Klicken()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = ActiveSheet.Range("G11:G100")
Application.ScreenUpdating = False
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = 33 Then
If Zelle.EntireRow.Show = True Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Show = True
End If
End If
Next
Application.ScreenUpdating = True
End Sub
Es wird ausgeblendet, aber nicht wieder eingeblendet :( könnt ihr mir Helfen? Vielen Dank schon einmal.
