Thema Datum  Von Nutzer Rating
Antwort
02.02.2017 19:33:50 BlackJack66
NotSolved
02.02.2017 19:55:51 Crazy Tom
NotSolved
03.02.2017 08:16:30 BlackJack66
NotSolved
03.02.2017 07:08:40 GraFri
NotSolved
03.02.2017 08:26:41 BlackJack66
NotSolved
03.02.2017 10:58:32 Gast70117
NotSolved
03.02.2017 13:40:21 BlackJack66
NotSolved
03.02.2017 15:50:24 SJ
NotSolved
03.02.2017 17:21:27 Gast10567
NotSolved
04.02.2017 12:33:51 SJ
NotSolved
04.02.2017 09:02:31 Gast70117
NotSolved
Blau einfach so
 04.02.2017 20:30:12 GraGri
Solved
14.02.2017 08:06:07 BlackJack66
NotSolved

Ansicht des Beitrags:
Von:
GraGri		 Datum:
04.02.2017 20:30:12		 Views:
716		 Rating:
     
Antwort:
 Nein
Thema:
einfach so

Hallo

 

Vielleicht so:

' Es wird nur ein gültiges Datum in der Form TT.MM.JJJJ zugelassen
Sub Eingabe_Datum()
Dim Antwort As String
Dim xDatum As Date
Dim jaNein As Boolean


Do
    Antwort = InputBox("Datum im Format TT.MM.JJJJ eingeben ...", _
                       "Datum eingeben", Format(Now, "DD.MM.YYYY"))
    On Error Resume Next
    xDatum = CDate(Antwort)
    On Error GoTo 0
    
    If xDatum <> "00:00:00" Then
        If Antwort Like "##.##.####" Then
            jaNein = True
        Else
            Antwort = MsgBox("Nur Schreibweise  TT.MM.JJJJ  zulässig", vbCritical)
        End If
    Else
        Antwort = MsgBox("Kein korrektes Datum ...", vbCritical)
    End If

Loop Until jaNein = True

End Sub

mfg, GraFri

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
02.02.2017 19:33:50 BlackJack66
NotSolved
02.02.2017 19:55:51 Crazy Tom
NotSolved
03.02.2017 08:16:30 BlackJack66
NotSolved
03.02.2017 07:08:40 GraFri
NotSolved
03.02.2017 08:26:41 BlackJack66
NotSolved
03.02.2017 10:58:32 Gast70117
NotSolved
03.02.2017 13:40:21 BlackJack66
NotSolved
03.02.2017 15:50:24 SJ
NotSolved
03.02.2017 17:21:27 Gast10567
NotSolved
04.02.2017 12:33:51 SJ
NotSolved
04.02.2017 09:02:31 Gast70117
NotSolved
Blau einfach so
 04.02.2017 20:30:12 GraGri
Solved
14.02.2017 08:06:07 BlackJack66
NotSolved