Formatierung von Datumswerten

Sub aktualisieren() Dim akt_dat As Date akt_dat = Date 'Formatierung der Variablen "akt_dat" akt_dat = Format(akt_dat, "dd.mm.yy") 'Formatierung der Zelle "j2" ActiveSheet.Range("j2").NumberFormat = "dd.mm.yy" ActiveSheet.Range("j2") = akt_dat qu = Date 'Formatierung der Variablen "qu" qu = Format(qu, "q") 'Formatierung der Zelle "j4" ActiveSheet.Range("j4").NumberFormat = "General" ActiveSheet.Range("j4") = qu End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi kwon,
Ich würde dir vorschlagen die Variable selbst immer im korrekten Format zu formatieren; es sollte also ausreichen, wenn du es so formatierst:

Sub aktualisieren()
Dim akt_dat As Date
akt_dat = Date
'Formatierung der Variablen "akt_dat"
akt_dat = Format(akt_dat, "dd.mm.yy")
'Formatierung der Zelle "j2"
'ActiveSheet.Range("j2").NumberFormat = "dd.mm.yy"
ActiveSheet.Range("j2") = akt_dat
qu = Date
'Formatierung der Variablen "qu"
qu = Format(qu, "q")
'Formatierung der Zelle "j4"
'ActiveSheet.Range("j4").NumberFormat = "General"
ActiveSheet.Range("j4") = qu
End Sub

qu ist ja als Datum deklariert; das ist schon richtig, sonst würde ja der Befehl


qu = Format(qu, "q")

nicht mehr funktionieren. Es sei denn du möchtest das dargestellte Ergebnis (in diesem Fall 1) als integer speichern, dann kannst du es so machen:

Dim qu2 As Integer
qu = Date
'Formatierung der Variablen "qu2"
qu2 = Format(qu, "q")
ActiveSheet.Range("j4") = qu2

Gruß Jonatan

Hi,
da geht IMHO begrifflich etwas durcheinander.
"Variable selbst zu formatieren" geht nicht.
Eine Variable hat einen Typ, der wird beim Deklarieren festgelegt.
Und eine Variable hat einen Wert. Der wird zugewiesen.
Eine Variable hat aber kein Format.
Eine Zelle im Tabellenblatt hingegen hat - neben vielen anderen Eigenschaften - sowohl Wert als auch Zahlenformat.
Zu deinem Code:
Mit "akt_dat = Date" wird akt_dat die Zahl 40982 (das ist der 14.3.2012) zugewiesen. Ok.
Mit "Format(akt_dat, "dd.mm.yy")" wird aus der Zahl 40982 ein String erzeugt: "14.03.12". Ok, kann man.
Mit "akt_dat = Format(akt_dat, "dd.mm.yy")" wird dieser String dann wieder der Variablen akt_dat zugewiesen.
Eigentlich ist es gar nicht möglich, einer einer Date-Variablen einen String zuzuweisen.
Aber VBA ist tolerant und korrigiert das für uns, indem es den String in ein Date umwandelt (so das denn geht).
Das Ergebnis der Umwandlung ist: die Zahl 40982. Das hätten wir VBA leicht ersparen können...
Also: Ein Datum ist eine Zahl. Die Zahl ist der Wert der Date-Variablen.
Wie ein Datum in einer Zelle dargestellt wird, hängt nur vom Zahlenformat der Zelle ab.
Zu "In qu (als Date deklariert) wird das Quartal (z.B. "1")"
Warum willst du eine Variable, in der du das Quartal speichern willst, als Date deklarieren?
Ein Quartal ist doch kein Datum.
Wie du qu deklarieren solltest, hängt davon ab, wie du es brauchst. Es könnte auch ein String sein.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread