Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Datumsprüfung 2 Mal

Betrifft: Datumsprüfung 2 Mal von: Chris
Geschrieben am: 12.11.2014 11:02:22

Hallo,
ich bins wieder mal und feile gerade wieder an meiner Excel-Datei.

Ich frage über die Inbox ein Datum ab, das dort eingegeben wird.
Das Datum soll das Format TT.MM.YYYY haben.
Wenn nicht, dann soll eine Inputbox nochmal öffnen mit dem Hinweis, daß das Datum falsch eingegeben wurde und es nochmal eingegeben werden soll. dann wieder die Prüfung.
Außerdem soll es nicht länger als 1 Woche zurück und 2 Monate voraus sein. Wenn es außerhalb des Bereiches ist, dann soll über eine Msg-Box das eingegebene Datum angezeigt und nochmals bestätigt werden
Das Thema Inputbox und MsgBox krieg ich hin, aber mit dem Prüfen das hab ich nicht geschafft.
Könnt ihr mir da wieder bitte helfen?
Danke schon mal vorab.
Chris

  

Betrifft: AW: Datumsprüfung 2 Mal von: Hajo_Zi
Geschrieben am: 12.11.2014 11:28:32

Hallo Chris,

    Do
        ' Dein Code
        If DaDatum = Format(DaDatum, "DD.MM.YYYY") Then
            'länger als 1 Woche zurück und 2 Monate voraus
            If DaDatum >= Date - 7 And DaDatum <= Application.WorksheetFunction.EDate(DaDatum,  _
2) Then
                Exit Do
            End If
        End If
    Loop
GrußformelHomepage


  

Betrifft: AW: Datumsprüfung 2 Mal von: Chris
Geschrieben am: 12.11.2014 14:17:49

Danke dir Hajo.
Hat soweit gepaßt, hatte aber Schwierigkeiten mit der Do-Anweisung aber nach längerem Probieren hinbekommen.
Gruß Christian


  

Betrifft: AW: Datumsprüfung 2 Mal von: yummi
Geschrieben am: 12.11.2014 11:29:42

Hallo Chris,
mal als "pseudo" Text

EingabeKorrekt = false
while Eingabkorrekt = false 
Inbox

if IsDate(InboxErgebnis) = true then
   if date(InboxErgebnis) <= Now - 7 and date(InboxErgebnis) + 56 then
      Eingabekorrekt = true
   end if
end if
loop

so mal als Anregung

Gruß
yummi


  

Betrifft: AW: Datumsprüfung 2 Mal von: Chris
Geschrieben am: 12.11.2014 14:19:26

danke yummi,
hat mir geholfen.
Hab die aber aufgeteilt, weil nach jeder Prüfung eine Meldung erscheint.
Gruß Christian