Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fakultät in VBA

Fakultät in VBA
21.12.2006 11:12:02
Ptonka
Hallo zusammen,
ich möchte per VBA von einer Zahl die Fakultät berechnen. Welche Syntax muss ich hierfür benutzen?
Also z.B. Wert = Fakultät(Zahl)
Für einen Tipp wäre ich sehr dankbar.
Gruß,
Ptonka

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fakultät in VBA
21.12.2006 11:36:19
Andi
Hi,
das geht so:

Sub t()
Dim zahl
zahl = 5
MsgBox Application.WorksheetFunction.Fact(zahl)
End Sub

Schönen Gruß,
Andi
AW: Fakultät in VBA
21.12.2006 11:40:06
EtoPHG
Hallo Ptonka,
Gibts nicht...
Musste selber schreiben, z.B. so (geht mit Zahlen bis 170):
Public

Function Factorial(iNumber As Integer) As Double
Select Case iNumber
Case 2 To 170
Factorial = iNumber * Factorial(iNumber - 1)
Case 0, 1
Factorial = 1
Case Else
Factorial = Null
End Select
End Function

Gruss Hansueli
AW: Fakultät in VBA
21.12.2006 11:45:36
ptonka
Hallo Hansueli,
es geht doch, siehe Antwort von Andi.
Ich hatte es schon ähnlich ausprobiert, aber anstatt
Application.WorksheetFunction.Fact(Zahl)
nur
WorksheetFunction.Fact(Zahl)
geschrieben und das funktionierte nicht.
Also Andi - vielen Dank für den entscheidenden Hinweis.
Gruß,
Ptonka
Anzeige
AW: Fakultät in VBA
21.12.2006 11:49:43
EtoPHG
Hallo Ptonka,
Andi benutzt eine Worksheet-Function, meins ist reines VBA.
Vergleich mal Andi's Routine mit meiner, mit der Zahl 200 !
Geht's noch ?
Gruss Hansueli
AW: Fakultät in VBA
21.12.2006 12:00:05
Andi
Hi,
nö, geht nimmer, Deine aber auch nicht... ;-)
Bei mir erzeugen Deine Variante und die WorksheetFunction bis 170 das gleiche Resultat, aber 171 gehn beide nimmer.
Schönen Gruß,
Andi
Das war auch zu erwarten, weil die Zahl zu groß...
21.12.2006 12:54:50
Luc:-?
...wird, Andi & Hansueli,
aber da gibt es einen Trick (irgendwann nächtes Jahr auf meiner Website, habe jetzt leider keine Zeit das rauszusuchen), evtl mal recherchieren.
Gruß + mXm Luc :-?

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge