Thema Datum  Von Nutzer Rating
Antwort
Rot Überprüfung Datumseingabe
 24.10.2013 08:32:30 Sebastian
NotSolved
24.10.2013 17:05:48 Neuhäusler Korbinian
NotSolved
25.10.2013 08:20:10 Sebastian
NotSolved
25.10.2013 12:11:15 Neuhäusler Korbinian
NotSolved
25.10.2013 19:13:24 Neuhäusler Korbinian
NotSolved

Ansicht des Beitrags:
Von:
Sebastian		 Datum:
24.10.2013 08:32:30		 Views:
1608		 Rating:
     
Antwort:
  Ja
Thema:
Überprüfung Datumseingabe

Hallo,

ich bin absoluter VBA-Neuling und habe ein Problem. Es soll das Datum über eine Inputbox eingegeben und auf Gültigkeit überprüft werden.

Dies habe ich bisher wie folgt gelöst:

 

Dim wkb_data As Workbook
Dim strMeldung_Startdate As String
Dim strStartdate_Titel As String
Dim Startdate As Date

Set wkb_data = ActiveWorkbook

With wkb_data.Worksheets("Project data")
    strMeldung_Startdate = "Please enter start date. "
    Startdate = .Range("H5")
    strStartdate_Titel = ""
    .Range("H5") = InputBox(strMeldung_Startdate, strStartdate_Titel, Startdate)
  
    If Not .Range("H5") Like "[0-3][0-9].[0|1][0-9].[1|2][9|0][0-9][0-9]" Or Not IsDate(.Range("H5")) Then
        MsgBox "Invalid Date: TT.MM.JJJJ"
        wkb_data.Worksheets("Project Data").Range("H5") = wkb_data.Worksheets("Plan").Range("A2")
        Exit Sub
    End If
End With

 

Wenn ich nun als Datum abc eingebe, erscheint die Fehlermeldung "Invalid Date". Wenn ich als Datum aber 123 eingebe, dann wird dies als Datum erkannt und das Programm wird weiter ausgeführt. Wo habe ich einen Fehler gemacht?

 

Danke und Gruß,

Sebastian

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
Rot Überprüfung Datumseingabe
 24.10.2013 08:32:30 Sebastian
NotSolved
24.10.2013 17:05:48 Neuhäusler Korbinian
NotSolved
25.10.2013 08:20:10 Sebastian
NotSolved
25.10.2013 12:11:15 Neuhäusler Korbinian
NotSolved
25.10.2013 19:13:24 Neuhäusler Korbinian
NotSolved