Familienstand abfragen
17.11.2014 16:55:55
Hans
ich habe die Aufgabe das ich per MsgBox am Ende ausgeben soll ob die Eingabe richtig oder falsch ist. In meiner Aufgabe dreht es sich darum das ich den Familienstand per Inputbox eingeben soll (getrennt, ledig oder geschieden als Beispiel) und ausgeben soll ob es diesen Familienstand gibt und dies mit einer positiven Rückmeldung ausgeben soll oder eine negative bei falscher Eingabe. Falls es sich um Zahlen handelt sollen diese eine Fehlermeldung ausgeben.
Ich habe schon soweit angefangen aber bekomme am Ende immer "Typenunverträglichkeit" zu lesen.
Option Explicit
Sub Familienstand()
Dim dFamilienstand As String
Dim vFamilienstand As Variant
vFamilienstand = InputBox("Geben Sie einen Familienstand ein!")
If IsNumeric(vFamilienstand) = True Then
MsgBox ("Zahlen sind nicht erlaubt!")
Exit Sub
Else: dFamilienstand = vFamilienstand
End If
If dFamilienstand = "ledig" Or "getrennt" Or "geschieden" Then
MsgBox ("Richtige Eingabe!")
Else
MsgBox ("Falsche Eingabe!")
End If
End Sub