Checkbox
21.11.2020 10:06:04
Marko
über eine Checkbox möchte ich jede zweite Zeilen (12, 14, 16, ...68) ein und ausblenden. So weit so gut. Mit diesem Makro blende ich bereits Zeilen aus.
Private Sub Worksheet_Activate()
Dim i As Integer
For i = 12 To 68 ' mit i lege ich im folgenden die Zeilen fest, die ich untersuche
If Cells(i, 1).Value = "x" Then ' i = Zeile ; 1 = Spalte (Spalte A)
Cells(i, 1).EntireRow.Hidden = True ' Zeile wird ausgeblendet wenn Inhalt = "x"
Else: Cells(i, 1).EntireRow.Hidden = False ' ansonsten wir die Zeile eingeblendet
End If
Next i ' Schleife wir mit i+1 (also der nächsten Zeile) fortgesetzt
End Sub
- Sheet öffnen
- Werte (die aus einem anderen Sheet übernommen werden) aktualisieren
- die Zeilen in denen sich ein "x" in Spalte A befindet, über das Makro (s.o.) ausblenden
- über die Checkbox möchte ich zusätzlich in den angezeigten Zeilen (möglich wären 12, 14, 16, ...68) in denen sich kein "x" in Spalte A befindet, ausblenden und einblenden.
Wie kann ich das lösen? Danke für Eure Hilfe.
Anzeige