Berechnen der Fakultät (Tipp_83) -
13.04.2009Mit dieser benutzerdefinierten Funktion können Sie die Fakultät berechnen:
Function Fakultät(Z)
Dim a&, b#, c&, d&, e&
b = 1
For a = 1 To Z
b = b * a: d = 1
If b >= 10 Then
Do
d = d + 1: c = 10 ^ d
Loop While b >= c
b = b / 10 ^ (d - 1)
e = e + d - 1
End If
Next
Fak2 = CStr(b) & "E+" & CStr(e)
End Function
Kopieren Sie dieses Makro in das Blatt "Diese Arbeitsmappe" in der VBA-Umgebung. Dann wechseln Sie in ein Tabellenblatt und behandeln das Makro wie eine Funktion. So schreiben Sie z. B. in die Ergebniszelle: "= Fakultät(A1)", wenn in Zelle A1 die Zahl steht, von der Sie die Fakultät wissen wollen.
