Sub pruef_var()
Dim check As Variant
check = InputBox("Geben sie irgendwelche Werte ein Buchstaben oder Zahlen(es wird auch auf leerheit überprüft)", "Eingabe")
If check = "" Then
MsgBox ("Die Variable ist leer")
End If
If IsEmpty(check) = False And IsNumeric(check) = True Then
MsgBox ("Variable is nicht leer und ist eine Zahl")
End If
If check <> "" And IsNumeric(check) = False Then
MsgBox ("Variable ist nicht leer und ist ein Buchstabe")
End If
End Sub