Supportnet / Forum / Skripte(PHP,ASP,Perl...)
vba Datum´s formatierung von DTPicker Box
Frage
Hallo Experten
In einem Userform benütze ich eine DTPicker Box
die beim öffnen der Userform automatisch das aktuelle Datum anzeigt:
Private Sub Userform = Initialize()
DTPicker = Now
Die Angaben in der Userform werden danach in einem excel spreadsheet verwendet.
Leider erscheint im Spredsheet neben dem Datum auch die Uhrzeit der Erfassung. Wie kann ich den DTPicker formatieren, dass nur noch das Datum ohne Uhrzeit erscheint? Hoffentlich habe ich mich klar ausgedrückt?
Vielen Dank im voraus
Wernisan
Antwort 1 von Event
Hallo
versuch bei den properties vom dtPicker unter Format
"1 - dtpShortDate" einzustellen.
Gruß
versuch bei den properties vom dtPicker unter Format
"1 - dtpShortDate" einzustellen.
Gruß
Antwort 2 von K-D
Hi
Habs auch nich besser hingekriegt:
Cells(3, 3).Value = DatePart("d", DTPicker1.Value) & "." & DatePart("m", DTPicker1.Value) & "." & DatePart("yyyy", DTPicker1.Value)
Gruß
K-D
Habs auch nich besser hingekriegt:
Cells(3, 3).Value = DatePart("d", DTPicker1.Value) & "." & DatePart("m", DTPicker1.Value) & "." & DatePart("yyyy", DTPicker1.Value)
Gruß
K-D
Antwort 3 von wernisan
Hallo Event
Vielen Dank für Deinen Tip aber leider ist
das Format ist bereits "1 -dtpShortDate" eingestellt.
Gruss
Vielen Dank für Deinen Tip aber leider ist
das Format ist bereits "1 -dtpShortDate" eingestellt.
Gruss
Antwort 4 von wernisan
Hallo K-D
Sorry meine Ignorantz, auf was bezieht sich
Cells(3, 3). ?
Muss Dir wohl bald einen Drink ausgeben.
Gruss
Wernisan
Sorry meine Ignorantz, auf was bezieht sich
Cells(3, 3). ?
Muss Dir wohl bald einen Drink ausgeben.
Gruss
Wernisan
Antwort 5 von K-D
Sorry, war nur meine Testzelle. Kannste einfach durch Dein Ziel ersetzen.
Hier die bessere Version mit führender 0 für Tag bzw. Monat. Und wieder mit Cells(3,3) :)
Dim m As String
Dim d As String
m = DatePart("m", DTPicker1.Value)
If Len(m) = 1 Then
m = "0" & m
End If
d = DatePart("d", DTPicker1.Value)
If Len(d) = 1 Then
d = "0" & d
End If
Cells(3, 3).Value = d & "." & m & "." & DatePart("yyyy", DTPicker1.Value)
Wenn die Probleme nich größer werden, dann is nich so schlimm. Sonst fehlt mir leider die Zeit.
Hier die bessere Version mit führender 0 für Tag bzw. Monat. Und wieder mit Cells(3,3) :)
Dim m As String
Dim d As String
m = DatePart("m", DTPicker1.Value)
If Len(m) = 1 Then
m = "0" & m
End If
d = DatePart("d", DTPicker1.Value)
If Len(d) = 1 Then
d = "0" & d
End If
Cells(3, 3).Value = d & "." & m & "." & DatePart("yyyy", DTPicker1.Value)
Wenn die Probleme nich größer werden, dann is nich so schlimm. Sonst fehlt mir leider die Zeit.
Antwort 6 von wernisan
Hallo K-D
Habe es leider mit Deiner Lösung nicht hingekriegt.
Sorry Anfänger in VBA
Nach langem probieren habe ich aber folgende Lösung gefunden:
Statt
Private Sub Userform_Initialize()
PTPicker1.Value = Now
ersetzt mit
Private Sub Userform_Initialize()
PTPicker1.Format = Today
Vielen Dank für Deine Zeit und Hilfe
wernisan
Habe es leider mit Deiner Lösung nicht hingekriegt.
Sorry Anfänger in VBA
Nach langem probieren habe ich aber folgende Lösung gefunden:
Statt
Private Sub Userform_Initialize()
PTPicker1.Value = Now
ersetzt mit
Private Sub Userform_Initialize()
PTPicker1.Format = Today
Vielen Dank für Deine Zeit und Hilfe
wernisan