RE: Kostenlose Historische EOD Daten
| 10.08.2020, 13:23 (Dieser Beitrag wurde zuletzt bearbeitet: 10.08.2020, 13:24 von Noni-Binder. Bearbeitungsgrund: Ergänzung )
Kostenberechnung Aktien- und / Optionen
bei Comdirect -->mit excel VBA
bei TWS --> muss nach der Formel suchen ?
--------------------------------------------
Case 1: ' comdirect
'---------------------------------------------------
baseCost = 4.9: max1 = 59.9: min1 = 9.9
costActual = baseCost + 0.0025 * (Cells(35, ActiveCell.Column) * Cells(36, ActiveCell.Column))
If costActual < min1 Then costActual = 9.9
If costActual > max1 Then costActual = 59.9
If costActual > min1 And costActual < max1 Then cost = costActual
costRabatt = costActual * 0.85 'bei 15 % Rabatt
breakEven = ActiveCell.Offset(-1, 0) + 2 * (costRabatt / ActiveCell.Offset(-2, 0)) ' KK + 2 x costRabatt = B/E
msgStr = "comdirect"
Case 2: ' TWS
Kauf heute HEI1 (Heidelbergcement) 500 stk (smart) Kosten 35.76 € + Option 5 Kontrakte 10 €
--> muss noch nach der Berechnungsmethode suchen
- kann gerne auch gepostet werden thx
bei Comdirect -->mit excel VBA
bei TWS --> muss nach der Formel suchen ?
--------------------------------------------
Case 1: ' comdirect
'---------------------------------------------------
baseCost = 4.9: max1 = 59.9: min1 = 9.9
costActual = baseCost + 0.0025 * (Cells(35, ActiveCell.Column) * Cells(36, ActiveCell.Column))
If costActual < min1 Then costActual = 9.9
If costActual > max1 Then costActual = 59.9
If costActual > min1 And costActual < max1 Then cost = costActual
costRabatt = costActual * 0.85 'bei 15 % Rabatt
breakEven = ActiveCell.Offset(-1, 0) + 2 * (costRabatt / ActiveCell.Offset(-2, 0)) ' KK + 2 x costRabatt = B/E
msgStr = "comdirect"
Case 2: ' TWS
Kauf heute HEI1 (Heidelbergcement) 500 stk (smart) Kosten 35.76 € + Option 5 Kontrakte 10 €
--> muss noch nach der Berechnungsmethode suchen
- kann gerne auch gepostet werden thx