Datum aus Kalenderwoche ermitteln
Gerhard L. Hinteregger
neues spiel, neues glück :)
ich würde gerne aus einer gegebenen Kalenderwoche (z.b. KW 27) den
ersten Tag (Montag) und den letzten Tag (Sonntag) als Datum ermitteln.
Das Ergebnis sollte also der 1.7.2002 und der 7.7.2002 sein
Der Wert ist dabei als Text in einer Zelle im Format "KW 27" gegeben,
enthält also Text
falls möglich bitte sowohl als formel als auch als vba-code
danke
--
best regards & have a nice day
Gerhard L. Hinteregger
Thomas Ramel
"Gerhard L. Hinteregger" schrieb:
>
> neues spiel, neues glück :)
Faites vos jeux - rien ne vas plus! ;-)
> ich würde gerne aus einer gegebenen Kalenderwoche (z.b. KW 27) den
> ersten Tag (Montag) und den letzten Tag (Sonntag) als Datum ermitteln.
>
> Das Ergebnis sollte also der 1.7.2002 und der 7.7.2002 sein
>
> Der Wert ist dabei als Text in einer Zelle im Format "KW 27" gegeben,
> enthält also Text
Ich denke mit folgendem Link solltest Du weiterkommen:
http://www.excelformeln.de/formeln.html?welcher=186
--
Mit freundlichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
Christoph Kadner
>-----Originalnachricht-----
Hallo Gerhard,
probier' doch schon einmal diese Formel:
=37257+((27-1)*7)-(WOCHENTAG(37257;2)-1)
37257 ist die serielle Zahl des 1.1.02. Da wir mit der
ersten und nicht mit der nullten Woche beginnen, wird von
der KW erst mal eins abgezogen und dann mit 7 Wochentagen
multipliziert. Heraus kommt der zum 01.01. identische
Wochentag in der KW 27. Die Funktion WOCHENTAG ermittelt
eben diesen Tag, die Option "2" läßt die Nummerierung der
Woche mit dem Montag beginnen. Das Ergebnis aus WOCHENTAG-
1 gibt die Anzahl der Tage an, die bis zum Montag der
entsprechenden KW abgezogen werden müssen. Resultat: der
Montag der KW 27, gleich der 1. Juli 2002. Den Sonntag
gibt's viel leichter: Ergebnis der obigen Formel plus 6.
Für den VBA-Code hab' ich jetzt keine Zeit, aber mit der
Idee der Vorgehensweise müßte das machbar sein. Vorsicht:
WOCHENTAG ist eine Analyse-Formel, also erst Add-Ins
überprüfen.
Gruß
Christoph
P.S.: Angaben aus dem englischen Excel 97, ins Deutsche
übertragen
Peter Dorigo
"Gerhard L. Hinteregger" <in...@it-creations.com> schrieb im Newsbeitrag
news:MPG.17af1d5ac...@news.btx.dtag.de...
> Hallo,
>
> neues spiel, neues glück :)
>
> ich würde gerne aus einer gegebenen Kalenderwoche (z.b. KW 27) den
> ersten Tag (Montag) und den letzten Tag (Sonntag) als Datum ermitteln.
>
> Das Ergebnis sollte also der 1.7.2002 und der 7.7.2002 sein
>
> Der Wert ist dabei als Text in einer Zelle im Format "KW 27" gegeben,
> enthält also Text
>
> falls möglich bitte sowohl als formel als auch als vba-code
Function KW_Datum(Jahr As Integer, KW As Byte, Wochentag As Byte)
Dim d As Date
d = DateSerial(Jahr, 1, -3)
KW_Datum = d + 7 * KW - WeekDay(d, 2) + Wochentag
End Function
Aufruf der UDF mit der Zahl: 27 (f. KW27) in A1, für Montag:
=KW_Datum(2002;A1;1)
... mit dem Text "KW 27" in A1, für Montag:
=KW_Datum(2002;RECHTS(A1;2);1)
... für Sonntag:
=KW_Datum(2002;RECHTS(A1;2);7)
mfg Peter
--
MVP für MS-Excel
---------------------------
Gerhard L. Hinteregger
danke, deine funktion ist genau das was ich gesucht habe, dadurch spare
ich auch die formeln in den zellen :)
in den zellen lag der wert aus dem das datum ermittelt werden sollte
folgendermaßen vor: "KW 27.2002"
und daraus mußte ich anfangsdatum und endedatum der kw ermitteln ... das
wären umständliche und lange formeln in den zellen geworden
so sieht übrigens das ergebnis aus:
Cells(irow + 1, icol).Value = DatumVonKw(jahr, kw, 1) & " - " &
DatumVonKw(jahr, kw, 7)
dank natürlich auch an die anderen
grüße
Gerhard
In article <e99ijBvNCHA.2488@tkmsftngp09>, pe...@swissonline.ch says...
--
Peter Dorigo
"Gerhard L. Hinteregger" <in...@it-creations.com> schrieb im Newsbeitrag
news:MPG.17af51145...@news.btx.dtag.de...
> Hallo Peter,
>
> danke, deine funktion ist genau das was ich gesucht habe, dadurch spare
> ich auch die formeln in den zellen :)
Freude herrscht :-) auch meinerseits.
Danke für's Feedback