SHARE
TWEET

Untitled

a guest May 19th, 2017 46 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
Challenge yourself this year...
Learn something new in 2017
Top