Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
432to436
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
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Macro ausfuellen ist extrem langsam!!!!

Macro ausfuellen ist extrem langsam!!!!
25.05.2004 09:09:39
Anna
Hilfe,
mein Macro ausfuellen funktioniert richtig aber extrem also richtig extrem langsamm ca 15 min:

Sub auffuellen()
Dim zz#, sp%
Application.ScreenUpdating = False
For sp = 1 To 2
For zz = 7 To 3000
With ActiveSheet
If .Cells(zz, sp) = "" Then
.Cells(zz - 1, sp).Copy
.Paste Destination:=.Cells(zz, sp)
End If
End With
Next
Next
Application.ScreenUpdating = True
End Sub

Was mache ich falsch kann mir jemand helfen?!!!!
BITTE!!!

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

Betreff
Datum
Anwender
Anzeige
AW: Macro ausfuellen ist extrem langsam!!!!
Andreas
Versuch mal
Application.Calculation=xlCalculationManual
am Anfang und am Ende
application.Calculation=xlCalculationAutomatic
AW: Macro ausfuellen ist extrem langsam!!!!
25.05.2004 11:01:58
anna
DANKE LEUTE!!!

mit
Application.Calculation=xlCalculationManual
am Anfang und am Ende
application.Calculation=xlCalculationAutomatic

geht es tatsächlich viel viel schneller...
Ihr seid Spitze!!!
AW: Macro ausfuellen ist extrem langsam!!!!
Uduuh
Hallo,
da kann ich nichts gravierend Falsches dran sehen.
Zeit: 7,4 Sekunden auf P4-2400 mit komplett leeren Zellen.
So gehts noch ein bischen schneller(5,7 S.)

Sub auffuellen()
Dim C As Range, sp As Byte, t
t = Timer
Application.ScreenUpdating = False
For sp = 1 To 2
With ActiveSheet
For Each C In .Range(Cells(7, sp), Cells(3000, sp))
If C = "" Then
C.Offset(-1, 0).Copy Destination:=C
End If
Next C
End With
Next sp
Application.ScreenUpdating = True
MsgBox Timer - t
End Sub

Gruß aus'm Pott
Udo
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige