Ergebnisse aus Schleife in Zelle summieren
20.01.2018 19:56:22
Adrian
meine letzten VBA-Übungen sind leider schon eine ganze Weile her und ich scheine bei dem _
folgenden Problem irgendwie total auf dem Schlauch zu stehen..
Dim i As Single 'gewählte spalte
Dim f As Single 'faktor
Dim t As Single 'tabellenblattname
Dim l As Single 'tabellenblattnummer
Dim j As Single
Dim k As Double
i = InputBox("Spalte (Nummer) des ersten gewünschten Eintrags angeben:")
j = i + 1
lastrow = Range("A65536").End(xlUp).Row
For k = 2 To lastrow
For l = 29 + i To 0 + i Step -1
f = 30 - (l - i)
formel = "=0.9^" & f & "*'" & Sheets(l).Name & "'!$D2"
ActiveSheet.Cells(k, j).Value = formel
Next l
Next k
End Sub
Der Code errechnet anhand der gegebenen Formel 30 Werte, die nun nach einander in die betroffene Zelle geschrieben werden - Mein Wunsch ist es aber, dass diese 30 Ergebnisse erst aufsummiert, und DANN in diese Zelle geschrieben werden...
Des Rätsels Lösung ist bestimmt ein Kinderspiel... Aber ich kann mir grad selbst einfach nicht mehr weiter helfen.