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

Eingabeprüfung bei Inputbox

Forumthread: 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
Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige