Hi Forum,
ich möchte in einem Bereich von knapp 2.000 Zeilen gezielt ganze Zeilen per Knopfdruck ausblenden.
Der erste Weg war, per FOR-NEXT Schleife die Ausblendebedingung Zeile für Zeile abzufragen und dann die Zeile auszublenden. Dauert Minuten.
Erste Optimierung: application.screenupdating und calculation ausschalten. Bringt schon was.
Zweite Optimierung: die auszublendenden Zeilen per UNION sammeln und am Ende auf einen Schlag ausblenden. Bringt nochmal deutlich was, ist aber immer noch langsam.
Letzter Stand: Ich habe eine Hilfsspalte T, in der die Bedingung zum Ausblenden per Formel abgefragt wird: =WENN(Bedingung;1/0;"") ergibt #DIV0! in den auszublendenden Zeilen. Diese blende ich nun auf einen Schlag und ohne jede Schleife aus mit ActiveSheet.Columns("T:T").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
Das ganze dauert nichtmal 0,01 Sekunden - ich glaub, schneller gehts nicht.
Nur: Jetzt hab ich da diese blöde Hilfsspalte stehen. Hat jemand eine zündende Idee, ob das auch ohne Hilfsspalten geht?
Grüße,
Klaus M.vdT.