AAARGGHHH
sry für den post, hab den fehler...
der letzte faktor ist natürlich 1, und nicht 0
ich poste nochmal den korrekten code:
Code:
Public Function Prim_Recursion(zahl As Long, faktor As Long, zeile As Long) As Integer
If zahl > 1 Then
If zahl Mod faktor = 0 Then
Tabelle1.Cells(zeile, 2) = faktor
zahl = Round(zahl / faktor)
Tabelle1.Cells(zeile, 3) = zahl
Prim_Recursion = Prim_Recursion(zahl, faktor, zeile + 1) + 1
Else
Prim_Recursion = Prim_Recursion(zahl, faktor + 1, zeile)
End If
End If
End Function
Sub PrimRec()
Tabelle1.Cells(2, 1) = Prim_Recursion(Tabelle1.Cells(1, 1), 2, 1)
End Sub
@sakura: hatte ich doch
