In Inputbox nur 3 Möglichkeiten als Eingabe zulass
02.06.2003 15:59:13
stephan
ich möchte, dass man in die Inputbox nur "1,5";"1,6" oder "pcm" eingeben kann. Ansonsten soll die Frage nochmal gestellt werden.
Wie kann ich das erreichen. Sollte in etwa so aussehen, nur dass die if-Bedingung anders lauten muss:
Dim d As Double
wiederholen:
d = InputBox("Welche Art ?")
If VBA.IsNumeric(d) Then
If VBA.CInt(d) > 0 And VBA.CInt(d) < 10000 Then
Worksheets("Druckblatt").Range("MA") = d
Else
MsgBox ("Die Eingabe muss entweder 1,5 1,6 oder pcm lauten. Bitte wiederholen Sie die Eingabe.")
GoTo wiederholen
End If
Else
GoTo wiederholen
End If