Hallo,
ich kämpfe gerade mit folgender unzuverlässiger IF-Prüung. Der Code soll prüfen, ob ein numerischer Wert zwischen 1 und 4 eingetragen wird (zugegeben Es wird noch nicht auf Ganzzahl geprüft). Mein Problem: Wenn ich nichts eintrage, wird dies wohl meistens als 0 erkannt --> MsgBox + End - aber manchmal auch nicht und der Code läuft weiter.
Woran kann das liegen?
Grüße und Dank im Voraus
Christian
Sub InputboxOpenPdfQuartalDE()
On Error Resume Next
Quartal = Inputbox("Geben Sie das Quartal ein für welches das Reporting erstellt werden soll. Bitte nur Zahlenwerte eingeben.", "Quartal festlegen")
If Not IsNumeric(Quartal) Or Quartal <= 0 Or Quartal > 5 Then
MsgBox "Bitte nur Zahlen zwischen 1 und 4 ohne Satzzeichen eingeben"
End
End If
On Error GoTo 0
End Sub
|