|
jetzt ist die folge ja 1,1,2,3,5,8,13.......
Wenn ich sie aber bei Cells (1,3) eine 0 stehen haben will anstatt die eins was muss ich dann verändern ?
Vielleicht das Else ?
Hier die Sub-Routine die mir Detlev gegeben hat:
Sub Fibonacci()
Dim i As Integer
For i = 1 To 25
If i > 2 Then
Cells(i, 3) = Cells(i - 1, 3) + Cells(i - 2, 3)
Else
Cells(i, 3) = 1 <---------------------------Da steht SONST 1, aber ich möchte nicht beide restlichen Zellen mit 1
End If haben, sonder bei (1,3) eine Null und bei (2,3) ist die 1 richtig
Next i
End Sub
|