Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
676to680
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Finanzmath. Formeln per VBA

Finanzmath. Formeln per VBA
04.10.2005 11:58:21
martin.lamm@web.de
Hallo Excel-User,
ich habe folgendes Problem:
Ich möchte anhand einer Zahlungsreihe, die unterschiedlich lang sein wird, den internen Zinsfuss ausrechnen. Dies mache ich mit XINTZINSFUSS.
Nun möchte ich das Ganze aber per Formel und VBA machen, da ich einige Bedingungen einsetzen muss.
Frage: Kann ich eine beliebige Formel (bzw. hier speziell die XINTZINSFUSS) auch per VBA steuern, oder geht so etwas nur, indem ich die Formel (z.B. per Schleife) in eine Zelle schreibe und dort das Ergebnis abfrage und entsprechend reagiere?
Ich würde eine Lösung bevorzugen, bei der ich nicht in eine Zelle "zwischenspeichern" muss.
Vielen Dank,
Martin

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Finanzmath. Formeln per VBA
04.10.2005 12:58:54
Rolf
Hallo Martin,
hier zunächst mal eine Krücke
ActiveCell.FormulaR1C1 = _
"=XINTZINSFUSS(R[-4]C[-2]:RC[-2],R[-4]C[-1]:RC[-1],0.1)"
ActiveCell = ActiveCell.Value
Sofern du das englische Pendant zu XINTZINSFUSS irgendwo
findest (in der "VBALISTE.XLS" steht's nicht),
müssest du auch so aufrufen können:
x=Application.Worksheetfunction.XINTZINSFUSS("A1:A4","B1:B4",.1)
fG
Rolf
Interner Zinsfuss (Funktion XIRR) per VBA
05.10.2005 12:11:20
Rolf
Hallo Martin,
nach einigen Recherchen habe ich herausgefunden,
dass die VBA-Funktion "XIRR" (Ermittlung des Internen Zinsfusses) geht,
wenn das AddIn "atpvbaen.xla" geladen und
ein Verweis auf "atpvbaen.xls" gesetzt ist.
Codebeispiel:

Sub test_xirr()
Dim A, B
A = Array(-10000, 1000, 3000, 4000, 2500)                       'CashFlows
B = Array("1.1.05", "15.2.05", "30.3.05", "30.5.05", "1.7.05")  'Datümer
Debug.Print xirr(A, B)
End Sub

fG
Rolf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige