Clever-Excel-Forum

Hi,

Wie ist es möglich diese Division mit einer Schlaufe zu verbinden ?

Code:
Sub FormulaVersion()

ThisWorkbook.Worksheets("sheet1").Activate

Dim i As Long

For i = 1 To Range("C6").Value

Cells(i, 5).Value = "=B11/B10 -1"

Next i

End Sub

Und zwar dass nicht jedesmal die Zellen B11/B10 berechnet werden, sondern nach B11/B10 ; B12/B11; B13/B12 usw.
Lg

Hallo, :19:

Code:
Cells(i, 5).Formula = "=B" & i + 10 & "/B" & i + 9 & " -1"

Hi Case,

danke dir vielmals !! Es funktioniert einwandfrei ! :18: Sleepy

Selina1

Case

Selina1