InputBox: Abbruch oder Null ?
26.10.2017 21:49:26
Andreas
ich komme an einem, wie ich zunächst dachte, banalen Problem nicht weiter. Ich habe eine Application.InputBox, welche erkennen soll, ob der Anwender diese abgebrochen, bzw. eine Zahl oder Null eingegeben hat. Die Codezeile, welche ich nach meinen Recherchen nun schrieb kann jedoch leider nicht zwischen "Null" und "Abbruch" unterscheiden.
Option Explicit
Sub CheckInputBoxResult()
Dim vInp As Variant
vInp = Application.InputBox(Prompt:="Enter Threshold (Double)", Title:="CheckInputBox", Type:=1) _
_
If vInp = False Then
If vInp = 0 Then
Debug.Print "Null eingegeben"
Else
Debug.Print "Abbrechen geclickt"
End If
Else
Debug.Print CDbl(vInp)
End If
End Sub
Weiß jemand aus dem Forum Rat?
Vielen Dank für Eure Aufmerksamkeit.
Grüße aus Berlin, Andreas Hanisch
Anzeige