Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
344to348
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
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Lob an Mac4 und ans Forum aber noch ne Frage

Lob an Mac4 und ans Forum aber noch ne Frage
05.12.2003 11:15:22
Michael Engelhardt
Hallo Forum,

Mac4 gab mir diesen Code, der auch wunderbar funktioniert:


Private Sub Worksheet_Activate()
Dim Zelle
For Each Zelle In Range("A13:A550")
If IsError(Zelle.Value) Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next
End Sub


Die Ausführung dauert 2min 14s. Kann man die Zeit noch irgendwie verkürzen, oder muss ich das wegen der relativ großen Range hinnehmen?

Gruß
Michael

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Lob an Mac4 und ans Forum aber noch ne Frage
05.12.2003 11:24:42
Mac4
Hi,

nimm die ScreenUpdating - Zeilen dazu:


Private Sub Worksheet_Activate()
Dim Zelle
Application.Screenupdating = False
For Each Zelle In Range("A13:A550")
If IsError(Zelle.Value) Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next
Application.Screenupdating = True
End Sub


Marc
Spitzenklasse !!!!
05.12.2003 11:45:51
Michael Engelhardt
Hallo Marc,

vielen vielen Dank!!!! Du hast mir das Arbeitsleben um ein vielfacher leichter gemacht.

Danke
Michael
Turboversion ohne Schleife
05.12.2003 15:07:37
Martin Beck
Hallo,

das Ganze geht ohne Schleife noch wesentlich schneller(ich unterstelle, daß Du Zeilen ausblenden willst, die eine Fehlermeldung als Ergebnis einer Formelberechnung enthalten):


Sub ausblenden()
Cells.EntireRow.Hidden = False
Cells.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
End Sub


Gruß
Martin Beck
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige