Ein und ausblenden
10.03.2021 12:43:55
Dominic
Ich hätte eine kleine frage.
Im moment arbeite ich mit dieser Formel:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow As Long
Dim i As Long
lRow = IIf(Range("A65536") "", 65536, Range("A65536").End(xlUp).Row)
For i = lRow To 1 Step -1
If Range("A" & i) = "Inaktiv" Then Range("A" & i).EntireRow.Hidden = True
Next i
End Sub
Dies ermöglicht mir Zeilen Automatisch Auszublenden wen ich in Reihe A einen Befehl eingebe z.B. =WENN(D2=2;"Inaktiv";"")
Jetzt stellt sich mir die Frage ob es auch unbekehrt gehen würde, z.B. das schon ausgeblendete Zeilen bei einer Befehlswechsel auch wieder automatisch Einblenden?
=WENN(D2=2;"Inaktiv";WENN(D2=3;"Aktiv";""))
Hat sich damit jemand von euch schon mal beschäftigt und kann mir einen Typ geben oder eine Formel?
Grüsse