kann mir jemand helfen, wie ich diesen code so hinkriege, dass mir der button auch alle mit "x" gekennzeichnete Zeilen wieder öffnet wenn ich drauf klicke?
Sub Archiv()
Dim loX As Long
Application.ScreenUpdating = False 'Bildschirmaktualisierung aus
Application.EnableEvents = False 'Ereignismakros deaktivieren
For loX = 7 To 5000
Rows(loX).EntireRow.Hidden = Cells(loX, 14).Value = "x"
Next
Application.EnableEvents = True 'Ereignismakros aktivieren
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder an
End Sub
mfg simon