Hallo zusammen
Komme irgendwie nicht weiter mit dem folgenden Code:
Sheets("Start Page").Select
ActiveSheet.Shapes("CheckBox1").Select
With Selection
If CheckBox1.Value = True Then Sheets("Data").Activate
.ActiveSheet.Column("G").Activate
Dim L As Integer
For L = 1 To Range("G65536").End(xlUp).Column
If Cells(L, 7) = 2 Then
Cells(L, 7).EntireRow.Hidden = True
End If
Next
End With
Sheets("Start Page").Select
ActiveSheet.Shapes("CheckBox2").Select
With Selection
If CheckBox2.Value = True Then Sheets("Data").Activate.Column ("G")
.ActiveSheet
Dim B As Integer
For B = 1 To Range("G65536").End(xlUp).Column
If Cells(B, 7) = 2 Then
Cells(B, 7).EntireRow.Hidden = True
End If
Next
End With
Ziel ist es, falls das Häckchen in der jeweiligen Checkbox (1&2) aktiviert sind, dass die die Zeilen gemäss den Kriterien in der jeweiligen Tabelle ausgeblendet wird.
Das ganze soll in ein grösseres Makro eingebaut werden, welches ich mit dem Recorder erstellt habe. Das funktioniert auch soweit, bis auf diesen Teil.
Kann mir da vielleicht jemand weiterhelfen?
Vielen Dank euch!