KW-Wochen mit Datum

[atilla]

Hallo,

Hab leider jetzt keine Zeit dafür.

Heute Abend kann ich es mir noch einmal ansehen.

[Mixer007]

Hallo attila,

kein Problem.

[Rabe]

Hi,

Aber wenn du genau hinschaust, zeigt er mir im Monat Januar nur die KW-Woche 52 und KW-Woche 2 an. Die restlichen nicht. Er zeigt nur 2 KW-Wochen an pro Monat.

Ich sehe das Problem nicht, wenn ich Deine Originaldatei starte und dann auf den Urlaubsbutton drücke, dann werden alle 12 Monatsblätter mit jeweils 4-5 Wochen erzeugt.

Es müssen nur noch vorher die Formeln eingetragen werden.

A2 formatiert als Zahl ohne Nachkommastellen
I1 bis M1 formatiert als "KW " 0 und vom Makro nur die Zahl eintragen lassen

Code:

            oWS.Cells(1, ii).Value = KW(Datum)

I7: =I8   und formatiert als TTT
A2: = Jahr(F1)
I8: =WENN(J1=1;DATUM($A$2-1;1;7*I1-3-WOCHENTAG(DATUM($A$2-1;;);3));DATUM($A$2;1;7*I1-3-WOCHENTAG(DATUM($A$2;;);3)))

  Urlaubsplanung - Rabe.xlsb (Größe: 25,43 KB / Downloads: 8)

[Mixer007]

Hallo Rabe,

also erstmal : cool gemacht. Aber ich brauche unter den KW-Wochen die Wochentage, wie es im Tabellenblatt "Wunsch" gezeigt ist. Und deine Lösung zeigt mir nur einen Tag(nämlich nur den Montag) der KW-Woche an.
Kann man das auch irgendwie umändern. Verstehst du was ich mein?

[atilla]

Hallo,

hast Du Glück gehabt, dass ich heute einen produktiven Tag habe.

Ich habe etwas Code raus geschmissen und etwas Formeln eingefügt.
Das sollte einfacher und effektiver sein.

Makros aktivieren und einfach mal den Knopf drücken.


  Urlaubsplanung(ati).xlsm (Größe: 30,21 KB / Downloads: 13)

[Mixer007]

Hi attila,

genau das was ich gebraucht habe. Danke dir!