Herbers Excel/VBA-Archiv

von Datum in KW

• von Datum in KW von Fritz vom 26.08.2003 22:38:05
  • AW: von Datum in KW - von Ramses am 26.08.2003 22:46:05
  • AW: von Datum in KW - von K.Rola am 26.08.2003 23:00:48

Betrifft: von Datum in KW von: Fritz
Geschrieben am: 26.08.2003 22:38:05

Zelle A1:A31 habe ich Benutzerdifiniert 2003 - 08 - 00, somit
erscheint bei der Eingabe von 12 in Zelle A12 12 - 08 - 2003.
Datumsschreibweise in Amerikanischer Form muss erhalten bleiben.
Einfache Eingabe soll weiterhin möglich sein.
In der Zelle B12 brauche ich die Kalenderwoche ab Montag aus der Zelle A12.
A12 wird hierbei nicht als Datum erkannt.

Danke an alle

Fritz




Betrifft: AW: von Datum in KW von: Ramses
Geschrieben am: 26.08.2003 22:46:05

Hallo,

kann auch nicht erkannt werden weil in der Zelle nur 12 drin steht und die Darstellung lediglich durch ein von Dir definiertes Zellformat so erscheint.

Ohne korrektes Datum geht es nicht die Kalenderwoche korrekt zu berechnen.

Die einfachste Variante dazu ist die Funktion "Kalenderwoche()" die du mit dem Funktionsassistenten aufrufen kannst.
Vorher im AddIn-Manager die "Analysefunktionen" installieren

Gruss Rainer




Betrifft: AW: von Datum in KW von: K.Rola
Geschrieben am: 26.08.2003 23:00:48

Hallo,

hier eine UDF. Du musst, da ja dein Datum lediglich den Tag liefert,
für jeden Monat erneut eingeben, den Tag refenzierst du mit der
entsprechenden Zelle:



Function KaWe_DIN(Jahr As Integer, Monat As Byte, Tag As Byte) As Integer
Dim D As Date
D = DateSerial(Jahr, Monat, Tag)
KaWe_DIN = _
Fix((D - Weekday(D, 2) - DateSerial(Year(D + 4 - Weekday(D, 2)), 1, -10)) / 7)
End Function




Gruß K.Rola