Thema Datum  Von Nutzer Rating
Antwort
13.01.2023 09:59:13 Lukas
NotSolved
Blau Meldung bei falscher Eingabe InputBox
13.01.2023 10:42:54 Gast1763
Solved

Ansicht des Beitrags:
Von:
Gast1763
Datum:
13.01.2023 10:42:54
Views:
351
Rating: Antwort:
 Nein
Thema:
Meldung bei falscher Eingabe InputBox

Deine Variable ist vom Typ Date. Das bedeutet es wird bereits an der Stelle eine gültige Angabe erwartet; nur hast du die ja da noch nicht. ;)

Deshalb:

  Dim vntDate As Variant
  vntDate = InputBox("Datum eingeben", "Hinweis", "TT.MM.JJJJ")
  If Not IsDate(vntDate) Then
    Call MsgBox("Datum ungültig", vbOKCancel)
    Exit Sub
  Else
    vntDate = CDate(vntDate) 'nun Variant/Date
  End If

 

Grüße


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
13.01.2023 09:59:13 Lukas
NotSolved
Blau Meldung bei falscher Eingabe InputBox
13.01.2023 10:42:54 Gast1763
Solved