Aufeinanderfolgende Zeilen ausblenden
18.04.2019 09:44:56
Lisa
ich habe ein Makro, dass die aktuelle Zeile ausblendet, in welcher ich in Spalte D das Wort "Closed" eingebe, das funktioniert auch. Jetzt moechte ich aber nicht nur die eine Zeile ausblenden, sondern die 2 darauffolgenden Zeilen auch. Beispiel: In D22 gebe ich ein "Closed", daraufhin wird Zeile 22 ausgeblendet. Jetzt moechte ich aber gleichzeitig auch noch die Reihen 23 und 24 ausblenden.
Der Code sieht so aus:
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("D" & i) = "Closed" Then Range("D" & i).EntireRow.Hidden = True
Next i
End Sub
Vielen Dank schonmal!