Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eingabeprüfung bei Inputbox

Eingabeprüfung bei Inputbox
12.07.2006 11:55:41
KlausL
Hallo zusammen,
mit nachfolgendem Code prüfe ich, ob ein Datum eingetragen ist, wenn nicht, erfolgt die Eingabeaufforderung.
If Range("s2") = "" Then 'prüfen ob Datum eingetragen
Datum = Application.InputBox("Bitte geben Sie das Versanddatum ein" & Chr(10) & " Eingabeformat: TT.MM.JJJJ", "Versanddatum")
Range("S2") = Format(Datum, "DD.MM.YYYY") 'Datum übernehemn
End If
Nun meine Frage, wie kann ich prüfen ob das Datum korrekt ist bzw. ob überhaupt ein Datum eingetragen wurde?
Bereits jetzt vielen Dank für Tipps und Hilfen
Gruß Klaus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabeprüfung bei Inputbox
12.07.2006 12:15:39
Hugo
Hallo,
Option Explicit

Sub til()
Dim var As Variant
var = Application.InputBox("Datum eingeben", Type:=1)
If IsDate(CDate(var)) Then
MsgBox "Alles klar", , CDate(var)
Else
MsgBox "Das ist kein Datum"
End If
End Sub

Hugo
AW: Eingabeprüfung bei Inputbox
12.07.2006 13:26:27
KlausL
DANKE! für die rasche Hilfe
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige