VBA Excel, passt nicht für inputbox als integer

Question

Mein Code

Dim a As Integer 
a = InputBox("Enter the number", "Program", "", 7000, 6000) 
If a = Empty Then 
    ' do code... 
Else 
    MsgBox "Enter the number." 
End If 

Wenn ich ein leeres Feld verlassen, gibt Excel einen Type Mismatch Fehler. Ich möchte eine Nachricht anzeigen.

Answer 1

Seit a ist ein Integer, ist es nicht eine String oder sein Empty enthalten. Verwenden Sie ein Variant und dann überprüfen, um zu sehen, was zurückgegeben wurde:

Dim a As Variant 
Dim b As Integer 

a = InputBox("Enter the number", "Program", "", 7000, 6000) 

If Not IsNumeric(a) Then 
    'a is not a number 
Else 
    'a is a number and can be converted to Integer 
    b = CInt(a) 
End If 

Answer 2

Sie haben a definiert als Integer. Integer kann nicht leer sein. Verwenden Sie Variant statt Integer:

Dim a As Variant 
a = InputBox("Enter the number", "Program", "", 7000, 6000) 
If a = Empty Then 
    ' do code... 
Else 
    MsgBox "Enter the number." 
End If