---

Function fakultaetBerechnen(bisZu As Integer) As Long
    Dim fakultaet As Long
    Dim i As Integer
    fakultaet = 1
    For i = 1 To bisZu
        fakultaet = fakultaet * i
    Next i
    fakultaetBerechnen = fakultaet
End Function

---