Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1872to1876
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
Datum Live Formatieren in TextBox
16.03.2022 14:17:58
marv
Servus zusammen
ich bin hier am Verzweifeln...Ich habe eine UserForm, in dieser ist eine TextBox in die das Datum eingetragen werden soll.
Hier geht es schon los.
Frage1: Ist es möglich schon bei Eingabe des Datums Live das Format auf 12.03.2022 zu übernehmen wenn 120322 geschrieben wird.
Dann setze ich

Dim Datum as Date
Dim meinDatum As String
meinDatum = (UserForm2.TextBox1.Value)
Datum = CDate(meinDatum)
MsgBox meinDatum &  "   "  & Datum

Nun bekomme ich aber immer ein falsches Datum wenn 120322 eingegeben wird,
Was mache ich Falsch? Möchte am Ende als Ausgabe TT.MM.JJJJ auch wenn TTMMJJ eingegeben wird.


		

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

Betreff
Datum
Anwender
Anzeige
AW: Datum Live Formatieren in TextBox
16.03.2022 14:27:10
Rudi
Hallo,
die Zahl 120322 ist nun mal der 15.6.2229.
Datum = CDate(Format(Textbox1,"##\.##\.##"))
Gruß
Rudi
AW: Datum Live Formatieren in TextBox
16.03.2022 14:33:07
Daniel
HI
im Prinzip so:

meinDatum = (UserForm2.TextBox1.Value)
if meinDatum like "######" then 'Eingabe besteht aus 6 Ziffern)
meinDatum = Format(meinDatum, "00\.00\.00")
if IsDate(MeinDatum) then Datum = CDate(MeinDatum)
end if
das Problem ist, dass das CDate dir hier das Datum zum Ganzzahlwert, den du da eingegeben hast, ermittelst
120322 ist der 120.322te Tag ab dem Beginn der Datumszähung in Excel am 1.1.1900
erst mit den Punkten "12.03.22" wird es zum 12. März 2022.
Gruß Daniel
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige