ü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
Wie kann ich diese beiden Bedingungen in einem Makro mit einander kombinieren? Es soll einmal in Spalte A das "x" berücksichtigt werden und auch die Checkbox. Vielleicht drücke ich mich auch zu umständlich aus. Sorry vorab dafür.- 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.