Inputbox

Forumthread: Inputbox
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Inputbox

Inputbox

12.08.2006 22:16:34

Dani

Hallo Freunde
Hab da mal wieder eine Frage.
über eine Inputbox soll ein Datum in das aktuelle Feld zurückgegeben werden.
wie kann in der Inputbox das Datumsformat wie folgt anzeigen lassen.
--.--.----
Danke und Gruss

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Inputbox

12.08.2006 22:21:34

Bugs
AW: Inputbox

12.08.2006 22:26:11

Dani
AW: Inputbox

12.08.2006 22:42:05

Peter Feustel
AW: Inputbox

12.08.2006 23:30:20

dani
AW: Inputbox

12.08.2006 22:24:13

Bugs

AW: Inputbox

12.08.2006 22:21:34

Bugs

Hallo,
hilft dir das weiter:


Sub SetPrompt()
Dim sTxt As String, sPrompt As String
sPrompt = "Nutzen Sie bitte folgende Syntax:" & vbLf & _
"   'dd.mm.yyyy' oder" & vbLf & _
"   'dd/mm/yyyy' oder" & vbLf & _
"   'dd-mm-yyyy':"
sTxt = InputBox(prompt:=sPrompt)
On Error GoTo ERRORHANDLER
MsgBox CDate(sTxt)
Exit Sub
ERRORHANDLER:
MsgBox "Kein gültiges Datumsformat!"
End Sub

----------------
oder das:


Sub SetDefault()
Dim sTxt As String, sPrompt As String, sDefault As String
sPrompt = "Eingangsdatum eingeben:"
sDefault = Format(Date - 3, "dd.mm.yyyy")
sTxt = InputBox(prompt:=sPrompt, Default:=sDefault)
On Error GoTo ERRORHANDLER
MsgBox CDate(sTxt)
Exit Sub
ERRORHANDLER:
MsgBox "Kein gültiges Datumsformat!"
End Sub

Rückmeldung wäre nett !!!

>>> mfg Bugs <<<

Sicher ist, dass nichts sicher ist. Selbst das nicht.

AW: Inputbox

12.08.2006 22:26:11

Dani

Danke geht ja super schnell hier.
Ja so was wie im ersten Beispiel ist gut. Kann damit auch leben.
Toll wäre natürlich das beim öffen der Inputbox schon folgende Zeichen erscheinen.
--.--.----
Danke

AW: Inputbox

12.08.2006 22:42:05

Peter Feustel

Hallo Dani,
eine kleine Erweiterung für Bugs Makro:
sTxt = InputBox(prompt:=sPrompt, Default:="__.__.____")
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: Inputbox

12.08.2006 23:30:20

dani

Danke ... super

AW: Inputbox

12.08.2006 22:24:13

Bugs

Hallo nochmals,
sonst sieh dir die Beispiele vom Herber an:
https://www.herber.de/tools/input.zip
Gruss

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