Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

viel zu langsamer Code!

Bild

Betrifft: viel zu langsamer Code!
von: Lorenz
Geschrieben am: 14.12.2003 17:40:09
Hallo zusammen!
Warum ist er so langsam?
Was mach ich falsch??
Die Ausführung dauert bei 1300MHz Prozessor u. 256MB-Ram 13 - 15 Sec




Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If Range("f91, c107").Value = 0 Then
Dim Zelle, Nd, NdArt, Rt As Range
Set Nd = Range("b6:b89")
Set NdArt = Range("c6:c89")
Set Rt = Range("d6:d89")
Range("b111").Copy
Nd.PasteSpecial Paste:=xlFormulas
Range("c111").Copy
NdArt.PasteSpecial Paste:=xlFormulas
Range("d111").Copy
Rt.PasteSpecial Paste:=xlFormulas
Calculate
For Each Zelle In Nd
Zelle.Value = Zelle.Value
Next
For Each Zelle In NdArt
Zelle.Value = Zelle.Value
Next
For Each Zelle In Rt
Zelle.Value = Zelle.Value
Next
Exit Sub
End If
Application.ScreenUpdating = True
End Sub


Danke im Voraus
Lorenz
Bild

Betrifft: AW: viel zu langsamer Code!
von: Nepumuk
Geschrieben am: 14.12.2003 18:15:57
Hallo Lorenz,
die Schleifen kannst du dir schon mal ersparen. Das geht so viel schneller:

Range("B1:B300") = Range("B1:B300").Value

Gruß
Nepumuk
Bild

Betrifft: AW: viel zu langsamer Code!
von: Lorenz
Geschrieben am: 14.12.2003 18:41:19
Hallo Nepumuk!
soeben "ohne besagte Schleife" ausprobiert.
Tatsächlich schneller!
Danke u. Grüsse
Lorenz
Bild

Betrifft: AW: viel zu langsamer Code!
von: K.Rola
Geschrieben am: 14.12.2003 18:23:16
Hallo,

was soll dies?

If Range("f91, c107").Value = 0 Then

das ist unsinnig.

Lad mal ein Beispiel hoch.

Gruß K.Rola
Bild

Betrifft: AW: viel zu langsamer Code!
von: Lorenz
Geschrieben am: 14.12.2003 18:38:22
Hallo K.Rola!
In Range F91 bzw C107 wird "0" bzw "1" bei diversen Wochen bzw. Monatsformationen
die "1" bzw "0" ausgegeben.

Bei Wert "0" in Zelle C107 & F91 sollte der Code nicht ausgeführt werden.

Grüße
Lorenz
Bild

Betrifft: AW: viel zu langsamer Code!
von: K.Rola
Geschrieben am: 14.12.2003 18:41:24
Hallo,

das geht so aber nicht, da wird nur der Wert der ersten Adresse geprüft.

Gruß K.Rola
Bild

Betrifft: AW: viel zu langsamer Code!
von: Lorenz
Geschrieben am: 14.12.2003 18:52:25
Hallo K.Rola!

Besten Dank für die Info!

Nehme es mir selbstverständlich für (genauergesagt "bei") meinen zukünftigen Arbeiten zu Herzen u. Denke hoffentlich daran.

Gruß
Lorenz
Bild