Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
944to948
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
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datum z.B.nur Monat Jahr

Datum z.B.nur Monat Jahr
24.01.2008 19:07:00
Horst
Hallo
ich habe eine Variable Datum welche als Date definiert ist.
Nach dem Code
Datum = Format(Datum, "dd/yyyy")
erwarte ich, dass aus 24.01.2008 01.2008 wird
Datum hat jedoch danach den Wert 4.8.2562
Es wäre super, wenn mir jemand auf die Sprünge helfen könnte
Vielen Dank im Voraus
Gruß Horst

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum z.B.nur Monat Jahr
24.01.2008 19:10:30
Fred
Hi,
also bei mir, Excel 2003, kommt da 24.2008 raus.
mfg Fred

AW: Datum z.B.nur Monat Jahr
24.01.2008 19:50:00
Horst
Hallo
vielen Dank zusammen.
Ich habe meinen Fehler gefunden.
Datum = Format(Datum, "dd/yyyy")
1. dd ist natürlich nicht der Monat (Peinlich)
2. Da Datum als Date definiert ist und das Ergebnis wieder Datum zugeordnet wird
kommt nichts vernünftiges dabei heraus.
Datumstring = Format(Datum, "mm/yyyy")
liefert wie erwartet 01.2008
Vielen Dank nochmal
Gruß Horst

Anzeige
AW: Datum z.B.nur Monat Jahr
24.01.2008 20:13:00
Erich
Hallo Horst,
interessiert dich, wie VBA dieses merkwürdige Datum ausrechnet?
Dann auf einem leeren Tabellenblatt:

Sub Datümer()
Dim datD As Date, strD As String, lngD As Long
Columns(2).NumberFormat = "@"
Range("A1:D1") = Split("Date String Long Date")
datD = DateValue("24.01.2008")
Cells(3, 1) = datD
strD = Format(datD, "dd/yyyy")
Cells(3, 2) = strD
lngD = CLng(strD)
Cells(3, 3) = lngD
datD = CDate(lngD)
Cells(3, 4) = datD
datD = DateValue("24.01.2008")
Cells(5, 1) = datD
strD = Format(datD, "mm/yyyy")
Cells(5, 2) = strD
lngD = CLng(strD)
Cells(5, 3) = lngD
datD = CDate(lngD)
Cells(5, 4) = datD
datD = DateValue("24.01.2008")
Cells(7, 1) = datD
strD = Format(datD, "d/m/yy")
Cells(7, 2) = strD
lngD = CLng(strD)
Cells(7, 3) = lngD
datD = CDate(lngD)
Cells(7, 4) = datD
datD = DateValue("24.01.2008")
Cells(9, 1) = datD
lngD = CLng(datD)
Cells(9, 3) = lngD
datD = CDate(lngD)
Cells(9, 4) = datD
End Sub

Dabei kommt dann folgendes raus:

 ABCD
1DateStringLongDate
2    
324.01.200824.200824200804.08.2562
4    
524.01.200801.20081200815.11.1932
6    
724.01.200824.1.082410801.01.1966
8    
924.01.2008 3947124.01.2008

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

184 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige