Habe schon wieder ein Problem, welches an Hand eines vorhanden Makros meistern wollte. Nach langen experimentieren mußte ich mich wieder entschließen, Euch hier im Forum zu kontaktieren und erbitte Eure Hilfe bei der Lösung. Hier das Makro in der letzten von mir angeänderten Form.
Sub SpalteE_Fortschreiben()
Dim i As Long
Columns("E").NumberFormat = "General"
For i = 26 To Cells(Rows.Count, "A").End(xlUp).Row Step 1
Cells(i, "E").FormulaR1C1 = "=R[-1]C[-4]/1000*R[-1]C[-1]"
Next i
End Sub
Mit diesem Makro erreiche ich nur das die Formeln durchgeschrieben und um 1 versetzt geschrieben werden. Es sollte Aber so wie in D aussehen, 3 gleich 3 in der Formel und nicht um 1 versetzt.. Also die Formel setzt bei Zeile 3 eine und schreibt sich dann im Gleichklang bis zeile 25 dann 2 frei (26/27 und dann wieder von Zeile 28:49: Zeile 50/51 frei. Es wäre auch schön wenn sich das Fortschreiben an Spalte A orientiert (also wie weit die Daten vorgetragen sind). Zeile E wurde mit dem Makro erstellt in der Beispieldatei und Zeile D händisch.Ich würde mich sehr freuen wenn Ihr mir noch mal helfen würdet.
https://www.herber.de/bbs/user/147660.xlsm
LG Robert