Ausgeblendete Zeilen einblenden
DieterL
ich blende mit einem Makro bestimmte Zeilen nach Bedingung aus.
Private Sub Wechsel()
Dim intz As Integer
Dim lzeile As Long
lzeile = ActiveSheet.Cells(ActiveSheet.Rows.Count, 4).End(xlUp).Row
For intz = lzeile To 3 Step -1
If Cells(intz, 4) = "n" Then
Rows(intz).Hidden = True
Else
Rows(intz).Hidden = False
End If
Next
End Sub
Jetzt möchte ich aber das vor dem Ausblenden erstmal alle Ausgeblendeten wieder eingeblendet werden
weil sonst die Ausgeblendeten nicht mit einbezogen werden. Hat jemand eine Idee wie man das schreibt?
Eine Suche im Archiv hat nichts gebracht.
Besten Dank schon mal, DieterL