bestimmte zeilen ausblenden wenn eine eingabezelle bestimmten eintrag enthält
11.01.2020 14:52:58
Fanta
ich verzweifle gerade ein wenig.
Ich möchte gewisse zeilen ausblenden, wenn ich in ein Eingabefeld (hier $k$1) einen wert schreibe, wenn ich den wert in $k$1 ändere auf z.B. y sollen die zeilen wieder eingeblendet werden.
Es wäre mega, wenn ich hier schnell Hilfe finde.
LG
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$k$1" Then
Dim Zelle As Range
For Each Zelle In Intersect(UsedRange, Range("B:B"))
If Target.Value = "x" Then Rows(Zelle.Row).Hidden = True
Rows(Zelle.Row).Hidden = False
End If
End Sub