Hallo!
Ich arbeite gerade mit VBA und habe folgendes Problem:
Ich habe ein Eingabefeld und möchte, dass das Programm nur weiterläuft, wenn drei Bedingungen erfüllt sind. Es soll sich um eine Zahl handeln, sie soll ganzzahlig sein und größer gleich Null.
Ich habe folgendes zusammengebastelt:
Dim Zahl As Variant
start:
Zahl = InputBox("Zahl eingeben")
If Anzahl <= 0 Or IsNumeric(Zahl) = False Or Int(Anzahl) = False Then
MsgBox ("Zahl muss ganzzahlig und größer als 0 sein. Bitte erneut eingeben.")
GoTo start
Mit der ersten Bedingung klappt noch alles so wie es soll. Wenn ich einen Buchstaben eingebe, kommt eine Fehlermeldung und wenn ich keine ganzzahlige Zahl eingebe, läuft es einfach weiter.
Ich habe keine Erfahrung mit VBA und hoffe, dass mir jemand meinen Fehler erklären kann.
Vielen Dank schon Mal!