daily pastebin goal
40%
SHARE
TWEET

Untitled

a guest May 19th, 2017 47 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub pruef_var()
  2. Dim check As Variant
  3. check = InputBox("Geben sie irgendwelche Werte ein Buchstaben oder Zahlen(es wird auch auf leerheit überprüft)", "Eingabe")
  4. If check = "" Then
  5. MsgBox ("Die Variable ist leer")
  6. End If
  7. If IsEmpty(check) = False And IsNumeric(check) = True Then
  8. MsgBox ("Variable is nicht leer und ist eine Zahl")
  9. End If
  10. If check <> "" And IsNumeric(check) = False Then
  11. MsgBox ("Variable ist nicht leer und ist ein Buchstabe")
  12. End If
  13. End Sub
RAW Paste Data
Top