bin Anfänger, ein wenig ist mir jedoch schon gelungen, wenn möglicherweise auch nicht sehr professionell.
Was ich möchte ist folgendes;
Es soll das Geburtsdatum abgefragt werden, wenn das Datum in
der Zukunft liegt, soll ein Hinweis kommen, das das nicht geht.
Wenn Datum möglich, kommt die nächste Frage, bei mir Vorname.
Das gelingt mir auch. Probleme habe ich mit dem Abbrechen!!
Gelingt mir nur mit Strg+Alt+Ent.
Wäre für den einen oder anderen Tip dankbar, nehme auch gerne
kritische Anmerkungen zu einem Produkt entgegen.
Sichere Rückantwort bereits jetzt zu.
Mfg.Horst
Sub Geburt()
frage = InputBox("Bitte geben Sie Ihr Geburtsdatum ein." & Chr(13) & _
"(Eingabeformat: TT.MM.JJJJ)", "Geburtsdatum abfragen", _
Format(Now, "DD.MM.YYYY"))
If IsDate(frage) Then
Worksheets(1).[a2] = frage
End If
If Range("A3") >= Range("A20") = True Then
MsgBox "Das geht nicht!!!", and_
Geburt
ElseIf Range("A3") < Range("A20") = True Then
MsgBox "das geht gut so!!", and_
Vorname
End If
End Sub
Sub Vorname()
frage = InputBox("Bitte geben Sie Ihren Vornamen ein." & Chr(13) & _
"Vornamen abfragen")
If True Then
Worksheets(1).[a4] = frage
End If
Wunschdatum
End Sub