wie geht sowas ohne goto?
06.11.2003 18:14:03
Andi
ich hatte mir hier vor ein paar Tagen recht plausibel erklären lassen, warum goto in einem vernünftigen code nix verloren hat, und hatte darufhin Besserung gelobt.
Nun habe ich einen Programmteil, in dem die Zulässigkeit einer Eingabe (Zahl zwischen 0 und 255) überprüft und die Eingabe ggf. beliebig oft wiederholt werden soll. Dies habe ich bislang mittels goto realisiert:
eingabe:
eingabe = InputBox("Geben Sie eine Dezimalzahl zwischen 0 und 255 ein:")
If eingabe = "" Then Exit Sub
dezimal = Val(eingabe)
dez = dezimal
If dezimal < 0 Or dezimal > 255 Then
MsgBox "Die Zahl liegt außerhalb des gültigen Bereiches." + Chr(13) + "Wiederholen Sie die Eingabe."
GoTo eingabe
End If
[...]
Da ich ja goto eigentlich in Zukunft vermeiden wollte, würde ich jetzt gerne wissen, wie man das anders machen kann (wie gesagt, kaum VBA-Kenntnisse).
Schönen Gruß
Andi