VBA fortlaufende Schleife
11.07.2005 17:28:42
pascal_h
Leider habe ich auf mein Post heute Nachmittag keine Antwort mehr erhalten. Ich wäre euch sehr dankbar, wenn mir jemand weiterhelfen könnte.
Ich bin Anfänger und habe mir folgendes Script geschrieben:
Sub DifferenzRechner()
Dim Interval As Integer
Interval = Range("A1")
StartZeit = Range("B1")
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value - StartZeit >= Interval Then
ActiveCell.Offset(-1, 0).Copy [C1]
Exit Sub
End If
Wend
End Sub
Das Script läuft eine Liste ab (B:B) und vergleicht fortlaufend die Differenz der Listenwerten minus "StartZeit"Wert. Sobald die Differenz grösser ist als der Wert "Interval", wird der letzte Minuend in C1 kopiert.
Zum besseren Verständis vielleicht 1. Post ansehen (> Suchen, pascal_h eingeben... und dann kommts)
Wie kann ich nun weitergehen, d.h. nach der Kopie in C1 die Variable StartZeit von B1 nach B2 verschieben, und das ganze Spiel nocheinmal von dort starten. Ich erhalten dann für eben den Wert in B2 ebenfall einen Wert in C2.
Ich bin um jede Hilfe froh! Ich bedanke mich schon jetzt bei euch!
mfg Pascal