Begrenzung in Abzählen Schleife

Question

Ich habe die folgende einfache Excel-Tabelle:

 A   B    C 
1     10 
2    =B1+A2 
3    =SUMME(B1:B2) 
4 

in der Zelle A2 Werte Abzählen durch das folgende Makro eingefügt:

Sub test() 
Sheets("Sheet1").Range("A2").Value = Sheets("Sheet1").Range("A2").Value - 1 
Do Until Sheets("Sheet1").Range("B3") > 0 
Sheets("Sheet1").Range("A2").Value = Sheets("Sheet1").Range("A2").Value - 1 
Loop 
End Sub 

das alles so weit gut funktioniert. Jetzt möchte ich jedoch die Schleife im Makro begrenzen. Es sollte also nur Zahlen in Zelle A2 zählen, bis es die Nummer 0 erreicht. Es sollte nie unter 0 gehen.

Haben Sie eine Idee, wie ich ein solches "Limit" in meinen Code einfügen kann?

Answer 1

Es sollte nie vor dem Schreiben den Wert unter 0.

gehen, zu überprüfen, ob es <0 ist und einfach verlassen die Do Schleife.

Ist das was du willst?

Do Until Sheets("Sheet1").Range("B3") > 0 
    If Sheets("Sheet1").Range("A2").Value - 1 < 0 Then Exit Do 
    Sheets("Sheet1").Range("A2").Value = Sheets("Sheet1").Range("A2").Value - 1 
Loop