Schneller ohne Sprungmarke?

Sub OptLoop() 'declarations 'different limits for different I, currently best settings Dim VarLimits(30), BestSet(30) As Integer 'loop variables, variables for optimization Dim I, J, NewMax, OldMax As Integer 'variables and constants 'read values for array VarLimits from worksheet RestartLoop: 'initialize For I = 1 To 30 BestSet(I) = 0 Next I OldMax = 0 NewMax = 0 For I = 1 To 30 For J = 1 To VarLimits(I) 'send current I and J to worksheet 'calculate worksheet using I and J to get NewMax If NewMax > OldMax Then GoTo RestartLoop End If 'keep temporary maximum for next loop OldMax = NewMax 'keep index J for current I BestSet(I) = J Next J Next I 'send BestSet to worksheet End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dieter!
Grundsätzlich geht das statt einer Sprungmarke:


Do
' Code...
If irgendeineBedingung Then Exit Do ' Beendet Do
' Code, der nicht mehr ausgeführt werden soll wenn Bedingung zutrifft...
Loop While True

Nebenbei: Auch ganz nützlich, um in For-Schleifen den nächsten Durchgang zu starten, ist folgendes. (Das ersetzt das Continue-Statement, das es in anderen Sprachen gibt, aber nicht in VBA.)


For I = 1 To irgendwas: Do
' Code...
If irgendeineBedingung Then Exit Do ' Springt raus und startet nächsten Durchgang
' mehr Code...
Loop While False: Next

In Deinem Fall ist es wegen der I- und J-Schleifen etwas komplizierter. Es könnte ungefähr wie folgt aussehen, aber je nach den NewMax-Werten, die Du in der Schleife aus dem Worksheet holst, könnte das zu einer Endlosschleife werden. (Ist auch in Deinem Beispiel so.)


Sub OptLoop()
Dim VarLimits(30), BestSet(30) As Integer
Dim I, J, NewMax, OldMax As Integer
Do      ' Dieses Do ersetzt die Sprungmarke.
Do  ' Dieses Do dient dazu, aus den Schleifen zu springen.
For I = 1 To 30
BestSet(I) = 0
Next I
OldMax = 0
NewMax = 0
For I = 1 To 30
For J = 1 To VarLimits(I)
'send current I and J to worksheet
'calculate worksheet using I and J to get NewMax
If NewMax > OldMax Then Exit Do
OldMax = NewMax
BestSet(I) = J
Next J
Next I
Loop While False
Loop While NewMax > OldMax
End Sub

Ob das nun wirklich schneller ist als eine Sprungmarke, wage ich allerdings zu bezweifeln. Manchmal sind Sprungmarken halt die schnellste Lösung. Was Du noch optimieren könntest wäre:


Dim BestSet As Variant
'initialize
Redim BestSet(30) As Integer

So ganz check ich leider nicht, was OptLoop eigentlich macht, aber vielleicht hilft es Dir.
Viele Grüße
Frank

Hi Dieter
Wie Frank, würde ich ebenfalls annehmen, dass die Sprungmarke im Vergleich zum Loop keinen zeitlichen Unterschied macht. Wenn dann wären die Loops/Schleifen als Zeitfresser ganz generell zu hinterfragen. Es fehlt aber der Zusammenhang, um die Herangehensweise zu verstehen und ggf. Alternativen vorzuschlagen.
Bei der Haltung zu Sprungmarken geht es weniger um Performance, sondern um Übersichtlichkeit. Siehe dazu:
https://de.wikipedia.org/wiki/Spaghetticode
(Da dein Code sehr überschaubar ist, würde ich im konkreten Beispiel nicht von Spaghetti-Code sprechen.)
Erlaubt ist was Spass macht. Dennoch solltest du bedenken, ob der Code bei einer allfälligen Änderung in ein paar Monaten/Jahren noch intuitiv verständlich ist. Manchmal ist man schneller, wenn man sich die Zeit für einen halbwegs "schönen" Code nimmt und im Gegenzug einfacher Anpassungen vornehmen kann. Oft genug habe ich mich wegen meinen eigenen schlampigen Codes geärgert, wenn ich widererwarten doch etwas ändern musste oder ich habe mir bereits beim Debuggen die Zähne ausgebissen.
Abschliessend eine Kleinigkeit.
Dim I, J, NewMax, OldMax As Integer
Damit deklarierst du nur OldMax als Integer, alles andere bleibt Variant. Besser wäre:
Dim I As Integer, J As Integer, NewMax As Integer, OldMax As Integer
cu
Chris

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schneller ohne Sprungmarke?

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread