Hallo Zusammen,
ich brauch ein Makro, dass die aktuelle KW in der Spalte D sucht und alle Produktionsmengen in dieser KW addiert. Der Wert soll dann mit 1000 multipliziert und in eine Zelle geschrieben werden. Dasselbe mit der nächsten und übernächsten Woche.
Mein Makro funktioniert nur bei der aktuellen KW und ich glaube auch nur, weil die KW nur einmal vorkommt. Des Weiteren bekomme ich das mit dem Multiplizieren nicht hin. Wo liegt mein Fehler?
Definition von zeile = Cells(Rows.Count, 3).End(xlUp).Row
Cells(zeile + 4, 3).Select
ActiveCell = "=SumIf(C[1], WEEKNUM(TODAY()), C[10])"
Cells(zeile + 4, 4).Select
ActiveCell = "=SUMIF(C[0],WEEKNUM(TODAY())+1,C[9])"
Cells(zeile + 4, 5).Select
ActiveCell = "=SUMIF(C[-1],WEEKNUM(TODAY())+2,C[8])"
Cells(zeile + 4, 6).Select
ActiveCell = "=SUMIF(C[-2],WEEKNUM(TODAY())+3,C[7])"
KW Produktionsmenge
41 70
42 100
42 100
42 90
43 100
44 70
44 70
45 30
45 70
47 400
47 70
47 60
Danke!
|