Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

performance verbessern

performance verbessern
14.08.2003 14:08:47
richard
hallo profis,
habt ihr ne idee wie man diesen code beschleunigen kann? das problem ist, dass das ganze für 3500 zeilen passieren soll. und das dauert.
danke schonmal im voraus

Sub Ausblenden()
Dim i
Dim WSsource
Dim Zeile As Range
Dim rng As Range
Application.ScreenUpdating = False
WSsource = "Auswertung"
i = Worksheets(WSsource).Range("F65000").End(xlUp).Row
For Each rng In Range("F5:F" & i)
If rng.Value = "0" Then
Rows(rng.Row).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

mfg richi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: performance verbessern
14.08.2003 14:44:40
Dieter Maj
Hallo Richi
warum setzt du keinen Autofilter? geht am schnellstens
Gruß Dieter

AW: performance verbessern
14.08.2003 15:12:46
richard
eoerizgotienhori............
also manchmal....
dank dir
mfg richi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige