[VBA] Schleife beenden

Hallo,

ich versuche seit langem mal wieder ein kleines VBA Skript zu schreiben. Mein Ziel ist folgendes:

Es gibt eine Variable "x"
Von dieser Variable sind zwei Werte "A" und "B" abhängig (A und B berechne ich in Excel über eine Formel in der Zelle).
Über ein Sub soll "x" so lange variiert werden, bis "A" ungefähr gleich "B"
(Eine Abweichung von 1 lasse ich zu)
Über die Zielwertsuche habe ich es nicht hinbekommen, da A und B beide von "x" abhängig sind.

Meine VBA-Versuche sehen wie folgt aus:

Ja, die Iterationsschritte sollen so klein sein, da die Formeln für A und B sehr sensibel sind
Wenn ich die Schleife starte, dann hört er nicht mehr auf - auch wenn offensichtlich zwischenzeitlich A = B
(ich habe auch schon eine größere Differenz zugelassen, gleiches Problem)

Wenn mir jemand helfen könnte, wäre ich sehr dankbar!

 

Ich würde mal so gaaanz auf die schnelle sagen, dass das «Differenz = Abs(A - B)» sich innerhalb der Do-Loop-Schleife recht wohl fühlen würde
Die Schleife reagiert ja so immer auf den vorher einmal ermittelten Wert der sich ja nie mehr ändert.

Eric March

 

Hört sich für mich logisch an, führt aber zum selbsen Ergebnis --> Endlosschleife
Ich habe selbst eine ganze Weile nachgeforscht und bin zu keinem brauchbaren Erbenis gekommen.

Die bisher einfachste Möglichkeit für mich ist, das "x" zu raten.
Aber das muss im 21. Jahrhundert anders gehen behaupte ich!

 

Hallo Matthias

Immer noch am Studieren?

Code:

Do
    Differenz = Abs(A - B)
    x = x + 0.000001
    Cells(88, 3).Value = x
Loop Until Differenz < 1

So berechnest Du die Differenz in jedem Durchgang... immer wieder gleich !
A und B wurden ja vor der Schleife definitiv festgelegt...

Ich würde es so machen >>>

Code:

Do
    x = x + 0.000001
    Cells(88, 3).Value = x
    Differenz = Abs(Cells(89, 3) - Cells(90, 3))
Loop Until Differenz < 1

VBA ist schnell, Excel ist auch schnell - zusammen sind sie mit der Hin- und Herschreiberei aber ziemlich langsam.
Wobei sogar passieren könnte, dass VBA die Werte A und B zurückholen will, bevor Excel sie berechnet hat...

Kannst Du nicht den Wert x aus dem Blatt holen...
... und dann in der Schleife mit den beiden Formeln (die jetzt im Blatt sind) A und B immer neu berechnen.
>>> Erst nach Beendigung der Schleife die finalen x, A und B ins Blatt schreiben.

Auch bei sehr vielen Iterationen wäre das sehr schnell.

Gruss Urs

 

Gott, kann die Leitung lang sein. Da habe ich, flott-flott, glatt ›die Hälfte‹ übersehen…

Eric March

 

Hallo Urs,

ja, ich bin immernoch am Studieren. Bei unserem letzten "Zusammentreffen" musste ich eine Hausarbeit mit VBA erstellen, du erinnerst dich sicherlich gut ...
Inzwischen bin ich kurz vor meinem zweiten Abschluss (Master) und programmiere mir eine umfangreichere Hausarbeit in Excel. Da ich dort sehr viele Eingangswerte immer wieder ändern muss, versuche ich mir das leben mit automatisierten Interpolationen und VBA etwas einfacher zu machen
Bei der DO-Schleife hörte dann mein eingerostetes Grundlagenwissen auch wieder auf. Deine Erklärung ist aber idiotensicher und deine Lösung funktioniert perfekt!

Vielen Dank!

 

Hallo Matthias

Also weiterhin viel Vergnügen beim Studieren, nachher wird es wohl weniger vergnüglich werden.

Idiotensicher? So kurz ist diese Iteration, nun doch nicht... wenn sie immer funktionieren soll.
Ich wollte Dich nur nicht verschrecken, bevor das Ding wenigstens manchmal läuft >>>

1. Der Ausgangswert x kann schon der richtige Wert für Differenz <1 sein >>>
>>> durch puren Zufall, aber immer wenn das Makro vorher schon einmal oder allenfalls mehrmals darüber gelaufen ist.
Bei der ersten Iteration könnte das x dann überschiessen zu Diff >1 ... und in eine Endlosschleife gehen.
Deshalb solltest Du, mit dem jetzigen Code, nach dem Auslesen von x aus dem Blatt, aber vor dem Do/Loop, diese Zeile einfügen >>>
x = x - 0.000001
... so wird Differenz im ersten Durchgang dann sicher <1 und die Schleife wird sofort beendet.


2. Bei solchen Dingern sollte man immer eine maximale Anzahl der Iterationen festlegen, man weiss/bedenkt vorher nicht immer alles.
Innerhalb der Schleife diese Zeilen einfügen >>>

Code:

numIter = numIter + 1
If numIter >100 Then				'oder >50, >500... was auch immer vernünftig ist			
	Cells(88, 3) = "Mist"			'oder sonst eine Bemerkung irgendwo im Blatt
	Exit Do
End If

... das soll Dir nur anzeigen, dass wohl ein Fehler in Deiner Iteration ist...


3. Ist es gottgegeben, dass das ursprüngliche x immer kleiner und nie grösser als das ideale x ist ?
Wenn Du nicht absolut sicher bist, musst Du das zuerst prüfen, direkt nach dem Auslesen der Werte x, A und B
- vielleicht reicht dazu schon das Abklären, ob Differnz ohne Abs(Differenz) im Minus oder im Plus ist.
- dann muss in der Iteration x entweder vergrössert ODER verkleinert werden.


Nur keine Angst, mit den heutigen Prozessoren sind solche Zusatzzeilen belanglos...

Gruss Urs

 

Hallo Urs,

ich werde es mir merken, aber momentan funktioniert alles super für meine Zwecke und daher werde ich es so lassen!
Das makro funktioniert nun so:
"Setze x zu null und erhöhe es dann schrittweise, biss die Differenz kleiner 1 ist"

Dadurch, dass im ersten Schritt x zu null gesetzt wird, muss ich nur "aufwärts iterieren"

Nochmals vielen Dank.
VBA ist doch komfortabler als x durch Raten herauszufinden

 

Hallo Matthias

Gut so, das Abwärtsproblem ist erschlagen... wenn das ideale x nie 0 sein kann.
Sonst müsstest Du das Start-x auf -0.000001 setzen.

Es ist Dein Code, aber für mich würde ich, nur für die Test-Phase, den KO-Zähler trotzdem einbauen...

Gruss Urs

 

Habe #7 gelesen und mal getestet. Bei meinem nächsten VBA Problem versuche ich es so zu lösen. In diesem Zusammenhang ist es dank der Hilfe von Urs nicht mehr notwendig.
@Urs: Ja, x ist definitiv immer größer als Null.

 

Auch wenn es schon etwas her ist:

Erste Regel der VB(A)-Programmierung:
Um eine Endlosschleife in VB(A) zu vermeiden gehört in JEDE DO-WHILE-Routine ein DO EVENTS.