hey
würd ich wahrscheinlich mit =wenn(a2=1;a1+365;wenn(a2=2;a1+186;wenn(a2=4;a1+92;)))
probieren
hey
würd ich wahrscheinlich mit =wenn(a2=1;a1+365;wenn(a2=2;a1+186;wenn(a2=4;a1+92;)))
probieren
Das ist es leider nicht, da A1 das Ablaufdatum der Anleihe ist, d.h. es kann auch erst in 10 Jahren sein, und danach gibts sowieso keinen Kupontermin mehr! Außerdem ist der nächstliegende Kupontermin vom heutigen Tag abhängig!
Daniel
musst du ein bischen anpassen
Sub berechnung()
Dim datumneu As Date
datum = Worksheets("tabelle3").Cells(1, 1)
tagmonat = Left(datum, 6)
aktuell = Date
jahr = Right(aktuell, 2)
datumneu = tagmonat & jahr
If Worksheets("tabelle3").Cells(2, 1) = 1 Then coupon = datumneu + 364
If Worksheets("tabelle3").Cells(2, 1) = 2 Then coupon = datumneu + 181
If Worksheets("tabelle3").Cells(2, 1) = 1 Then coupon = datumneu + 91
Worksheets("tabelle3").Cells(1, 2) = coupon
End Sub
gegeben ist eine Anleihe mit Endfälligkeitsdatum in Zelle A1. Weiters die Kuponhäufigkeit Zelle A2 (1=jährlich, 2=halbjährlich, 4=vierteljährlich).
Bsp. Endfälligkeit ist am 3.5.2004, so ist der Kupontermin:
Häufigkeit; Termine
----------------------------------------------------------------
jährlich; 3.5.2002,3.5.2003,3.5.2004
halbjährlich; 3.5.2002,3.11.2002,3.5.2003,3.11.2003,3.5.2004
vierteljährl.; 3.5.2002,3.8.2002,3.11.2002,3.2.2003,3.5.2003,usw.
Ermittelt werden soll der nächste Kupontermin in Abhängikeit!
Daniel