automatisches Ausblenden von Zeilen beim Start
22.06.2016 17:37:11
Zeilen
ich benötige mal wieder eure Hilfe.
Ich habe eine Exceldatei mit diversen Datensätzen (täglich wachsende Anzahl von hinzugefügten Zeilen --> bis maximal 5000 Zeilen.
In Spalte "H" wird bei der Bearbeitung der Liste ein Wert eingetragen. Dieser kann "ja" lauten oder "nein". Bedingt durch diesen Wert soll beim nächsten öffnen der Datei alle Zeilen bei denen dieser Wert "nein" lautet ausgeblendet werden.
aktuell löse ich das mit folgendem Skript:
Sub Zeilen_ausblenden()
Application.ScreenUpdating = False
Set CellRange = Range("H15:H5000")
For Each Cell In CellRange
Cell.EntireRow.Hidden = (Cell.Value = "nein")
Next
Application.ScreenUpdating = True
End Sub
Das funktioniert auch sehr gut, bewirkt aber, dass auf einem langsamen Rechner der Start der Datei ewig dauert.
Kann man dies optimieren?
(noch ein Hinweis, es müssen jedes mal alle Zeilen geprüft werden, weil eine einmal ausgeblendete Zeile auch wieder eingeblendet werden kann durch den Benutzer. Das soll auch so bleiben. Ich kann also nicht den einmal gespeicherten Stand der ausgebelndeten Zeilen auslesen und verarbeiten. Auch kann es vorkommen, dass Mitten in den Datensätzen neue Zeilen eingefügt werden, die ebenfalls beim nächsten Starten mit geprüft und ausgeblendet werden.
Ich hoffe es hat jemand eine Idee hierzu. Ich danke wie immer schon im Voraus. Eure Hilfe hier ist immer Top!!!