Leere Zellen Ausblenden/Einblenden
17.11.2016 14:57:56
David
Ich probiere jetzt schon seit Studnen rum, aber schaffe es eifach nicht.
Ich habe in Spalte D6:D1000 Werte und Leerzellen.
Nun möchte ich mit einem Toggle Button bei click alle leeren Zellen ausblenden und bei erneutem click diese wieder einblenden.
Ich hatte es ursprünglich so gelöst:
Public Sub Gesamt_ausblenden()
Application.ScreenUpdating = False
For i = 6 To 1000
If Cells(i, 2).Value "" Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Public Sub Gesamt_einblenden()
Application.ScreenUpdating = False
For i = 6 To 1000
If Cells(i, 2).Value "" Then
Rows(i).Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
Hie benötige ich allerdings 2 Buttons und es läd eine ewigkeit.
Vielen Dank für eure Hilfe.
Anzeige