Hallo,
ich habe ein kleines Problem und hoffe, dass ich hier Hilfe finde 
!
Ich habe eine Tabelle mit Kalenderwochen und eine Mit einzelnen Tagesdaten.
Leider ist die Tabelle mit den Tagesdaten nicht komplett und müssen somit mit den Werten aus Kalenderwochen-Übersicht vervollständigt werden (es betrifft die ersten 18 Monate).
Da ich es danach generell in Monatsübersichten packen will und hier mit Durchschnitten weiterarbeite, würde es mir genügen die Werte der Kalenderwoche auf die einzelnen Tage gleichzuverteilen.
Jedoch habe ich jetzt das Problem mit der richtigen Formel. Nehmen wir an:
A1-A1800 sind die einzelnen Daten und B1-B1800 die entsprechenden Werte (wobei mir ca. die letzten 500 fehlen)
Bei den KWs sieht das Ganze so aus: C1-C258 sind die KWs und D1-D258 die Werte.
Jetzt würde ja für B1300 bis B1307 die Formel gelten „=D186/7“. Die Formel sollte sich jetzt nach Möglichkeit 7 mal wiederholen und danach bei „=D187/7“ weitergehen (ebenfalls 7x) und so weiter…
Weiß jemand Rat?
Hallo Marcus,
trage in B1300 die gewünschte Formel „=D186/7“ ein und in B1301 die Formel „=B1300“. Die Formel von B1301 kopierst Du dann bis B1306. Danach markierst Du B1300 bis B1306 und ziehst die Formel über die folgenden Zellen (Cursor an/in die untere rechte Ecke).
MfG Georg V.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Marcus,
trage in B1300 die gewünschte Formel „=D186/7“ ein und in
B1301 die Formel „=B1300“. Die Formel von B1301 kopierst Du
dann bis B1306. Danach markierst Du B1300 bis B1306 und ziehst
die Formel über die folgenden Zellen (Cursor an/in die untere
rechte Ecke).
MfG Georg V.
Vielen lieben Dank ! So simpel hätte ich es irgendwie nicht erwartet !
Bemerkung zur Kalenderwoche
Hallo,
Es wurde hier schon verschiedentlich darauf hingewiesen, dass die Funktion Kalenderwoche in Excxel falsch ist (amerikanische Definition).
Das richtige Resultat bekommst du mit der Funktion
Function KaWo(d As Date) As Integer
' Quelle: Schmittis-page.de
Dim t As Date
t = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1)
KaWo = (d - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function
Gruss
Erich