Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Familienstand abfragen

Betrifft: Familienstand abfragen von: Hans Egonschmidt
Geschrieben am: 17.11.2014 16:51:47

Hallo,

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
Wäre sehr dankbar für Vorschläge/Tipps.

  

Betrifft: AW: Familienstand abfragen von: Matthias L
Geschrieben am: 17.11.2014 16:58:16

Hallo

If dFamilienstand = "ledig" Or dFamilienstand = "getrennt" Or dFamilienstand = "geschieden" Then

Gruß Matthias


 

Beiträge aus den Excel-Beispielen zum Thema "Familienstand abfragen"