Ist das mit einer Formel zu lösen?
edie
obwohl ich schon mal gestern die Frage gestellt habe und das Problem auch als VBA gelöst bekommen habe, versuche ich es noch einmal.
in Spalte A sind fortlaufend die Kalenderwochen, in Spalte B ein Gesamtwert pro Kalenderwoche und entsprechend in der Spalte C eine Zahl durch die der Gesamtwert aufgeteilt werden soll Spalte D, und zwar in Tagen. Siehe eine Beispieldatei: https://www.herber.de/bbs/user/63093.xls.
Mit dem nachfolgenden Code, danke an robert, wird der Gesamtwert auch aufgeteilt immer nur für eine Spalte, habe aber mehrere Spalten, deshalb meine Frage: Geht es auch mit einer Formel? Dabei wäre ich flexibel und auch schneller.
Sub Makro()
Dim Bereich As Range
Dim zl%, i%, x%, ges%, z%
Columns(16).ClearContents
For i = 1 To Cells(Rows.Count, 16).End(xlUp).Row
If Cells(i, 18) "" Then
z = i
zl = Cells(i, 18)
ges = Cells(i, 17)
For x = 1 To zl
Cells(z, 19) = ges / zl
z = z + 1
Next x
End If
Next i
End Sub
Hoffe auf Hilfe und danke im Voraus.Grüße
Anzeige