Datum aus Kalenderwoche



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Datum aus Kalenderwoche
von: Matthias V.
Geschrieben am: 16.05.2002 - 16:31:23

Hallo zusammen,

ich weiß, dass das Thema schon häufiger vorkam, und ich habe auch schon das Archiv befragt.
Es ist nur so, dass ich mit den gegebenen Funktionen nicht ganz zurecht komme, ich sie nicht auf meinen Fall anpassen kann.

Ich ermittele nun mit:

Sub kw()

Dim kw As Integer

kw = DatePart("ww", Date, vbMonday, vbFirstFourDays)

End Sub

die aktuelle Kalenderwoche. Funzt (anscheinend) ganz gut.

Jetzt muss ich aber per VBA in eine Zelle das Datum des Montags der jeweiligen KW und in eine weitere das Datum des Sonntags eintragen. Soll nachher so aussehen:

13.05.2002 bis 19.05.2002

Wer kann mir helfen?

Gruß

Matthias V.

nach oben   nach unten

Re: Datum aus Kalenderwoche
von: Hajo
Geschrieben am: 16.05.2002 - 19:18:36

Hallo Matthias

mal eine Lösung ohne VBA

182. Kalenderwoche eingeben und Zeitraum erhalten (deutsche DIN)
In A1 steht die Kalenderwoche.
In A2 die vierstellige Jahreszahl
In A3 (Hilfszelle) steht:
=DATUM(A2;1;1)+(A1-WENN(WOCHENTAG(DATUM(A2;1;1);2)>4;0;1))*7
Der Montag der KW steht in A5:
=A3-WOCHENTAG(A3;2)+1
Der Sonntag in A6:
=A5+6
von WF


Gruß Hajo

nach oben   nach unten

Re: Datum aus Kalenderwoche
von: Rolf, Lgh.
Geschrieben am: 16.05.2002 - 20:41:52

Hallo Matthias,
mein Vorschlag: https://www.herber.de/mailing/125300h.htm.

MS Excel von Rolf, Lgh. an Matthias V.
 ABCD
1DIN-KWMontagSonntagJahr
2103.01.200009.01.20002000
3210.01.200016.01.2000
4317.01.200023.01.2000
5424.01.200030.01.2000 
64=Dinday($D$2;A5)=+B5+6 

Gruss Rolf

nach oben   nach unten

Re: Datum aus Kalenderwoche
von: Matthias V.
Geschrieben am: 17.05.2002 - 08:30:41

Guten Morgen,

vielen Dank für Eure Antworten! Mal schauen, wie ich das umsetzen kann. Aber das ist nicht ganz das, was ich brauche. Ich muss halt alles in VBA generieren/berechnen und will lediglich das Datum für Montag und Sonntag in jeweils eine Zelle packen.
Aber trotzdem nochmal Danke!


Gruß

Matthias V.

P.S.: Hat vielleicht noch jemand eine Idee?

nach oben   nach unten

Re: Datum aus Kalenderwoche
von: Rolf, Lgh.
Geschrieben am: 17.05.2002 - 09:43:26

Ergänzung des Codes:

'...
  End If
    DINDay DateSerial(intYear, 1, intDay) + (intDIN - 1) * 7
    DINDay = DINDay & " bis " & DINday + 6
End Function

Gruss Rolf
nach oben   nach unten

Re: Datum aus Kalenderwoche
von: Matthias V.
Geschrieben am: 17.05.2002 - 10:07:25

Danke!

Habe in der Zwischenzeit ein wenig rumprobiert, mit folgendem Ergebnis:

Cells(1, 13).Value = Date - WeekDay(Date, vbMonday) + 1
Cells(1, 15).Value = Date - WeekDay(Date, vbMonday) + 7

das klappt auch ganz gut. Und der Vorteil ist, dass ich keine neuen Funktionen einbinden muss. Habe das nämlich gestern schon probiert und bin kläglich gescheitert. Aber das da oben funzt (anscheinend) auch ganz gut!

Danke nochmal für die Hilfe!

Gruß

Matthias V.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Datum aus Kalenderwoche"