Ausführen bis Wert erreicht
markus
ich habe ein Makro, welches mit dem die Falscheingabe verhindert wird.
Da die Anwendung im Netzwerk läuft, sind nicht alle Rechner gleich schnell und so kann es vorkommen,
das 2 Werte falsch eingegeben werden und sich die Anwendung festrennt.
Wie kann ich Application.Undo solange auführen bis L508 = 0 ist?
If [L508] (größer) 0 Then
MsgBox " Achtung!" & Chr(13) & Chr(13) & " Falsche Eingabe. " _
& Chr(13) & Chr(13) & " Der bzw. die Werte werden zurückgesetzt!"
Application.Undo
End If
Danke und Gruß Markus