Thema Datum  Von Nutzer Rating
Antwort
25.10.2010 13:40:06 Johannes
NotSolved
Blau Aw:Fakultäten in vba eingeben???
 25.10.2010 15:22:33 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
25.10.2010 15:22:33		 Views:
362		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Fakultäten in vba eingeben???
Johannes schrieb am 25.10.2010 13:40:06:

Erstellung einer Prozedur , die die Fakultät einer eingegebenen ganzen Zahl berechnet. Die Fakultät berechnet sich nach der Formel n! = 1 * 2 * … * n. Die Fakultät von 4 wird also wie folgt berechnet: 4! = 1 * 2 * 3 * 4 = 24. Eine Ausnahme bildet die Zahl 0: 0! = 1.
Hat jemand eine Idee??


Option Explicit
Sub test()
Dim EingaBe As Double
Dim ErgebNis As Double
EingaBe = Application.InputBox("Geben Sie die ganze Zahl ein, deren Fakultaet berechnet werden soll (Es werden nur die Vorkommastellen berücksichtigt!):", "Fakultaet n!", , , , , , 1)
EingaBe = Application.WorksheetFunction.RoundDown(EingaBe, 0)
ErgebNis = Fakultaet(EingaBe)
MsgBox ErgebNis
End Sub

Public Function Fakultaet(ByVal Zahl As Double) As Double
Dim LaufZahl As Double
Dim ErgebNis As Double
If Zahl = 0 Then
Fakultaet = 1
Exit Function
End If
ErgebNis = 1
For LaufZahl = 1 To Zahl
ErgebNis = ErgebNis * LaufZahl
Next LaufZahl
Fakultaet = ErgebNis
End Function

Severus

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.10.2010 13:40:06 Johannes
NotSolved
Blau Aw:Fakultäten in vba eingeben???
 25.10.2010 15:22:33 Severus
NotSolved