AW: Berechnung der eulerschen Zahl
26.01.2006 09:49:29
Georg
Hallo,
einfacher als Excel aufmachen und in einer Zelle einen Wert einzugeben, gehts mit Excel kaum.
Du kannst z.B. auch eine Inputbox aufmachen, einen Wert abfragen und dann beides berechnen - ist aber nicht schneller/leichter.
Hier das Makro, dass einfach in ein Standardmodul einzufügen ist. Aufrufen kannst Du es dann wie gewohnt über z.B. eine Schaltfläche im Tabellenblatt oder mit Einfügen in das Workbook_Open auch gleich beim Öffnen der Exceldatei.
Sub Euler()
Dim n&, i&
Dim strAusgabe$
Dim dblVar1#, dblVar2#
On Error Resume Next
n = CLng(InputBox("Bitte n eingeben für Berechnung der Eulerschen Zahl", _
"Eingabe einer natürlichen Zahl", 10))
dblVar1 = (1 + 1 / n) ^ n
For i = 0 To n
If i = 171 Then Exit For
dblVar2 = dblVar2 + 1 / WorksheetFunction.Fact(i)
Next i
strAusgabe = "e bei Variante 1: " & dblVar1 & vbCrLf & _
"e bei Variante 2: " & dblVar2
MsgBox strAusgabe, , "Berechnung für n=" & n
End Sub
Ein eigenständiges Programm (z.B. wie ne .exe bei TP) bekommst Du mit Excel nicht hin.
Gruß
Andreas