For Next 5 Mal
17.05.2022 09:03:37
Henry
ich möchte gerne in jeder zweiten Zeile eine Berechnung durchführen, und zwar 5 Mal.
Hierzu habe ich folgenden Code:
Sub Test()
Dim var_Ganzzahl As Integer
Dim var_Zahl As Double
Dim i As Integer
ThisWorkbook.Sheets("Tabelle4").Activate
var_Ganzzahl = InputBox("Tragen Sie Bitte eine Ganzzahl ein")
Range("B2").Value = var_Ganzzahl ^ 2
Range("B2").Activate
For i = 1 To 5
i = i + 1
var_Zahl = var_Ganzzahl * ActiveCell.Offset(i - 2, 0).Value
ActiveCell.Offset(i, 0).Value = var_Zahl
Next
End Sub
Wenn ich den Code ausführe, funktioniert das Beschreiben der Zellen zwar, aber nur 3 Mal.Das Ergebnis sieht bislang wie folgt aus, wenn ich in der Inputbox zum Beispiel eine 5 eingebe,
B2 = 25
B4 = 125
B6 = 625
B8 = 3125
Das Ergebnis sollte aber wie folgt aussehen:
B2 = 25
B4 = 125
B6 = 625
B8 = 3125
B10 = 15625
B12 = 78125
Ich verstehe nicht, warum B10 und B12 nicht auch beschrieben werden, denn ich führe die Schleife doch 5 Mal aus.
Wo ist mein Denkfehler?
Über eure Hilfe würde ich mich freuen.