Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Aus Kalenderwoche Datum berechnen

Betrifft: Aus Kalenderwoche Datum berechnen von: Wolfgang
Geschrieben am: 09.09.2004 14:47:09

Hallo zusammen,
aus Zeitgründen kann ich mal nicht über die Recherche oder google. Habt ihr eine Excelformel parat die aus einer vorgegebenen Kalenderwoche (Datum des aktuellen Jahres) das Datum errechnet (von - bis)?
Beispiel in A1 = 37 (für Kalenderwoche)
Ergebnis in A2 = 03.09. - 09.09.2004
Falls das nicht möglich ist wäre auch ein VBA-Code hilfreich.
Danke
Gruß
Wolfgang

  


Betrifft: AW: Aus Kalenderwoche Datum berechnen von: geri
Geschrieben am: 09.09.2004 14:51:22

Hallo Wolfgang
aus Archiv


Kopiere diesen Code in einem allgemeinen Modul.

Du kannst die Funktion in einer Tabelle verwenden,
aber auch in einem Makro!

Option Explicit

Public Function Datum_Aus_KW_und_Wochentag(Jahr As Integer, Kalenderwoche As Integer, _
Optional Wochentag As Integer)
'Wochentag 1=Mo bis 7=So
Dim iDay As Integer, iWeek As Integer
Wochentag = Wochentag - 1
If Wochentag < 0 Or Wochentag > 6 Then Wochentag = 0
If Jahr < 1900 Or Jahr > 3999 Then
Datum_Aus_KW_und_Wochentag = "#Jahr?"
Exit Function
End If
If Kalenderwoche < 1 Or Kalenderwoche > 53 Then
Datum_Aus_KW_und_Wochentag = "#Woche?"
Exit Function
End If
iDay = 1
iWeek = DINWeek(DateSerial(Jahr, 1, 1))
If iWeek <> 1 Then
Do Until DINWeek(DateSerial(Jahr, 1, iDay)) = 1
iDay = iDay + 1
Loop
Else
Do Until DINWeek(DateSerial(Jahr, 1, iDay)) <> 1
iDay = iDay - 1
Loop
iDay = iDay + 1
End If
Datum_Aus_KW_und_Wochentag = DateSerial(Jahr, 1, iDay + Wochentag) + (Kalenderwoche - 1) * 7
End Function

Private Function DINWeek(dat As Date) As Integer
Dim dValue As Double
dValue = DateSerial(Year(dat + (8 - Weekday(dat)) Mod 7 - 3), 1, 1)
DINWeek = (dat - dValue - 3 + (Weekday(dValue) + 1) Mod 7) \ 7 + 1
End Function


Sub test()
'zur verwendung in einem Makro
MsgBox Format(Datum_Aus_KW_und_Wochentag(2004, 14, 7), "ddd dd.mm.yyyy")
End Sub


gruss geri


  


Betrifft: AW: Aus Kalenderwoche Datum berechnen von: MatoC
Geschrieben am: 09.09.2004 14:55:17

Hallo Wolfgang!
schreibe in A1 KW, und in C1 diese Formel ="vom "&TEXT(DATUM(JAHR(HEUTE());1;7*A1-3-WOCHENTAG(DATUM(JAHR(HEUTE());;);3));"TT.MM.JJJJ")&" bis "&TEXT(DATUM(JAHR(HEUTE());1;7*A1+2-WOCHENTAG(DATUM(JAHR(HEUTE());;);3));"TT.MM.JJJJ")

Gruß
MatoC


  


Betrifft: AW: Aus Kalenderwoche Datum berechnen von: HermannZ
Geschrieben am: 09.09.2004 14:58:37

Hallo Wolfgang,

oder so,

DatumZeitMuster
 AB
129737KW
12982004Jahr
1299  
1300  
130106.09.2004 - 12.09.2004 
Formeln der Tabelle
A1301 : =TEXT(DATUM(A1298;1;7*A1297-3-WOCHENTAG(DATUM(A1298;;);3));"TT.MM.JJJJ")&" - "&TEXT(DATUM(A1298;1;7*A1297-3-WOCHENTAG(DATUM(A1298;;);3))+6;"TT.MM.JJJJ")
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  


Gruß hermann


  


Betrifft: AW: Danke, super von: Wolfgang
Geschrieben am: 09.09.2004 15:10:41

Hallo geri, Mato, Hermann,
alles sehr hilfreich. Danke für die prompten Antworten.
Einen schönen Tag noch.
Gruß
Wolfang


 

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