Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kalenderwoche Wochenbeginn Freitag

Forumthread: Kalenderwoche Wochenbeginn Freitag

Kalenderwoche Wochenbeginn Freitag
20.12.2012 20:01:16
JoWE
Hallo Excelcracks,
die korrekte Kalenderwoche via VBA aus einem bestimmten Datum zu berechnen ist mit VBA dank vieler Beispiele machbar.
Wie aber erreiche ich es, die Kalenderwoche zu bestimmen, wenn der Wochenbeginn weder der Sonntag oder Montag sondern der Freitag sein soll?. Der 4. Januar 2012 soll der 1. Tag der 2. KW 2013 sein und der 11. Januar 2013 dann natürlich die 3. KW usw.
Gruß
Jochen

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalenderwoche Wochenbeginn Freitag
21.12.2012 07:09:17
Hajo_Zi
Halllo Jochen,
mal in dier Hilfe schaue. Keine Ahnung ob 2003 das schon hat, Schalter 6.

Danke Hajo, nein in 2003 gibt's das nicht....
21.12.2012 07:18:55
JoWE
... Hallo,
der Tipp mit der Hilfe war mir zuvor natürlich auch schon eingefallen.
Aber - leider nur die Schalter 1 und 2.
Daher mein Versuch hier Antworten zu saugen.
Weitere hilfreiche Ideen?
Gruß
Jochen

Anzeige
AW: Danke Hajo, nein in 2003 gibt's das nicht....
21.12.2012 15:53:28
Tino
Hallo,
rechne doch einfach zum Datum 3 Tage hinzu.
Kommt in ein Modul:
Function KW(d As Date) As Integer
Dim t As Variant
t = DateSerial(Year(d + 3 + (8 - Weekday(d + 3)) Mod 7 - 3), 1, 1)
KW = (d + 3 - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function
 AB
1Di 01. 01 131
2Mi 02. 01 131
3Do 03. 01 131
4Fr 04. 01 132
5Sa 05. 01 132
6So 06. 01 132
7Mo 07. 01 132
8Di 08. 01 132
9Mi 09. 01 132
10Do 10. 01 132
11Fr 11. 01 133
12Sa 12. 01 133
13So 13. 01 133
14Mo 14. 01 133
15Di 15. 01 133
16Mi 16. 01 133
17Do 17. 01 133
18Fr 18. 01 134
19Sa 19. 01 134

Formeln der Tabelle
ZelleFormel
B1=KW(A1;3)
B2=KW(A2;3)
B3=KW(A3;3)
B4=KW(A4;3)
B5=KW(A5;3)
B6=KW(A6;3)
B7=KW(A7;3)
B8=KW(A8;3)
B9=KW(A9;3)
B10=KW(A10;3)
B11=KW(A11;3)
B12=KW(A12;3)
B13=KW(A13;3)
B14=KW(A14;3)
B15=KW(A15;3)
B16=KW(A16;3)
B17=KW(A17;3)
B18=KW(A18;3)
B19=KW(A19;3)

Gruß Tino

Anzeige
falschen Code kopiert
21.12.2012 17:00:38
Tino
Hallo,
habe den falschen Code kopiert, der passt besser zu der Formel.
kommt als Code in Modul 
Option Explicit 
 
Function KW(ByVal d As Date, lngDay As Long) As Integer 
Dim t As Variant 
d = d + lngDay 
t = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1) 
KW = (d - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1 
End Function
Gruß Tino

Anzeige
AW: falschen Code kopiert
21.12.2012 17:39:19
JoWe
Hallo Tino,
ja, da hätte ich eigentlich drauf kommen können.
Scheine manchmal doch schon ziemlich vernagelt zu sein.
Danke vielmals!!
Gruß
Jochen
- schöne Feiertage -
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige