Lange Reaktionszeit bei ROWS Hidden
04.09.2018 07:57:22
Climbi
mit folgendem Code durchsuche ich ein Excel Blatt und blende alle Zeilen aus,
bei welchem das Wort nicht vorkommt.
Früher ist das mal sehr schnell gegangen, aber seit einem Excel Update ist das ganze brutal langsam.
Die extreme Zeit kommt von "Rows(Zeile).Hidden = True"
Wenn ich das "Hidden" ausblende dauert die SUB bei 4000 Zeilen ca. 2 Sekunden.
Ist das Hidden aktiv dauert es ca. 5 Minuten.
Ich hoffe, es hat jemand eine Idee
If TextBoxSuchbegriff.Value = "" Then Exit Sub
LetzteZeile = LastRow("Störungsliste", 1) + 2
'Bildschirmaktualisierung sperren
Application.ScreenUpdating = False
'Von Zeile 2 bis zur letzten Zeile
For Zeile = 2 To LetzteZeile
For Spalte = 1 To Spaltenende
Suchtext = UCase(Me.TextBoxSuchbegriff.Text)
Zellentext = UCase(Cells(Zeile, Spalte).Value)
Find = InStr(Zellentext, Suchtext)
If Find > 0 Then
Gefunden = True
End If
Next
If Gefunden <> True Then
Rows(Zeile).Hidden = True
End If
Gefunden = False
Next
Application.ScreenUpdating = True