Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
920to924
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeit

Laufzeit
06.11.2007 12:51:00
Ralf_P
Hallo zusammen,
folgender Code läuft auf meinem Rechner fast 20 Minuten!!!

Private Sub CommandButton1_Click()
Dim Bereich As Range
Set Bereich = Range("A13:A4030")
Application.ScreenUpdating = False
For Each cell In Bereich
If cell.Value = "" Then
cell.EntireRow.Hidden = True
End If
Next cell
Application.ScreenUpdating = True
End Sub


Geht das auch schneller?
Gruß Ralf

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeit
06.11.2007 13:00:21
Rudi
Hallo,
das zählt zu den Schleifen, die Welt nicht braucht.

Private Sub CommandButton1_Click()
Dim Bereich As Range
Set Bereich = Range("A13:A4030")
Application.ScreenUpdating = False
Bereich.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Laufzeit
06.11.2007 13:13:00
Ralf_P
Hallo Rudi,
erstmal danke für die schnelle Antwort, aber das passt nicht.
Laufzeitfehler 1004: Keine Zellen gefunden
Wahrscheinlich weil die Zellen nicht leer sind, sondern über
WENN(x=y;z:"") nur leer dargestellt werden.
Gruß Ralf

Anzeige
AW: Laufzeit
06.11.2007 13:22:44
Rudi
Hallo,
OK, dann doch mit Schleife

Private Sub CommandButton1_Click()
Dim Bereich As Range, rngLeer As Range, rngC As Range
Set Bereich = Range("A13:A4030")
Application.ScreenUpdating = False
For Each rngC In Bereich.Cells
If rngC = "" Then
If rngLeer Is Nothing Then
Set rngLeer = rngC
Else
Set rngLeer = Union(rngLeer, rngC)
End If
End If
Next rngC
If Not rngLeer Is Nothing Then rngLeer.EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
Läuft superschnell - DANKE o.T.
06.11.2007 13:27:00
Ralf_P

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige