Thema Datum  Von Nutzer Rating
Antwort
09.02.2020 18:15:00 Gast28422
NotSolved
09.02.2020 18:32:28 Mase
NotSolved
09.02.2020 18:34:52 Gast28422
NotSolved
09.02.2020 18:52:17 Mase
NotSolved
09.02.2020 18:59:29 Gast28422
NotSolved
Blau Format überprüfen
 09.02.2020 19:19:38 Mase
NotSolved
09.02.2020 19:34:10 Gast28422
NotSolved
09.02.2020 19:52:50 Mase
NotSolved
09.02.2020 20:32:13 Gast28422
NotSolved
09.02.2020 21:12:58 Mase
NotSolved
09.02.2020 21:31:10 Gast3333
NotSolved
09.02.2020 21:43:11 xlKing
Solved
09.02.2020 21:58:33 Gast28422
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
09.02.2020 19:19:38		 Views:
734		 Rating:
     
Antwort:
  Ja
Thema:
Format überprüfen		 
Sub LoopWhileIsDateFalse()
    Dim dt As Date
    '
    On Error GoTo FinisErr
    '
    Do
        dt = Format(InputBox("Bitte Startdatum der Veranstaltung eingeben:"), "dd.mm.yyyy", vbUseSystemDayOfWeek)
    Loop Until IsDate(dt)
    '
    MsgBox dt
FinisErr:
Select Case Err.Number
    Case 13
        MsgBox "Na, versucht ein Datum in einem falschen Format einzugeben? :)" & vbNewLine & _
                "Bitte nachfolgendes Format verwenden:" & vbNewLine & _
                "tt.mm.jjjj -> 09.02.2020" & vbNewLine & vbNewLine & _
                "Versuchs nochmal - mal sehen, wer von uns beiden den längeren Atem hat...", vbCritical + vbOKOnly, _
                "Autor informiert:"
        Resume 0
End Select
End Sub

 

 

Mit Fehlerbehandlung...

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.02.2020 18:15:00 Gast28422
NotSolved
09.02.2020 18:32:28 Mase
NotSolved
09.02.2020 18:34:52 Gast28422
NotSolved
09.02.2020 18:52:17 Mase
NotSolved
09.02.2020 18:59:29 Gast28422
NotSolved
Blau Format überprüfen
 09.02.2020 19:19:38 Mase
NotSolved
09.02.2020 19:34:10 Gast28422
NotSolved
09.02.2020 19:52:50 Mase
NotSolved
09.02.2020 20:32:13 Gast28422
NotSolved
09.02.2020 21:12:58 Mase
NotSolved
09.02.2020 21:31:10 Gast3333
NotSolved
09.02.2020 21:43:11 xlKing
Solved
09.02.2020 21:58:33 Gast28422
NotSolved