Es wäre ja langweilig, wenn es nicht immer mal wieder etwas Neues gäbe. So hat sich die Gestaltung einer Datenquelle für mein Tool geändert, und zwar geht es um die Seite mit den Börsenplätzen bei finanzen.net.
Das hatte die Auswirkung, dass manchmal Kurs und Datum von irgendeinem ungebräuchlichen Börsenplatz genommen wurde, was ein ziemlich alter Wert sein konnte. Dummerweise orientieren sich auch noch andere Berechnungen bzw. Datenermittlungen an diesem Datum, und zwar die Ermittlung der historischen Kurse und das Dreimonatsreveral.
Allerdings ist es auch wieder nicht sooo schlimm, aber ein paar Fehler gab es dadurch schon. Kurz und gut, ich habe es behoben und hochgeladen.
Ich habe nur am Code der hochgeladenen Datei geändert. Aktuellere Bewertungsblätter habe ich dazu nicht spendiert, denn meine Aktienliste unterscheidet sich von der veröffentlichten.
Der nächste reguläre Artikel zu meinem Levermann-Experiment erscheint wie immer am kommenden Dienstag.
| Die öffentlichen Depot-Stände vom 31.03.2017 | ||
|---|---|---|
| Levermann-Experiment: | +39,8% | mehr |
| Graham-wikifolio: | +1,2% | mehr |
nächster Levermann-Artikel: Kam ein Riese ins Levermann-Depot
Titelbild: Sandro Almir Immanuel / pixelio.de
Danke
Gefällt mirGefällt mir
Vielen Dank!
Gefällt mirGefällt mir
Vielen Dank, Petra!
Gefällt mirGefällt mir
Danke sehr!
Gefällt mirGefällt mir
Vielen Dank 🙂
Gefällt mirGefällt mir
Hallo Petra,
kannst du mir sagen wo du was geändert hast (Zeile?)
wäre gut weil ich daraus dann was lernen kann
danke
Gefällt mirGefällt mir
Geändert habe ich in Function AktuellerTerminUndKursZurISIN
nach
Set rng = shQ.Cells.Find(„Deutsche Börsenübersicht“, shQ.Cells(1, 1))
If Not rng Is Nothing Then
die Zeile
Z = rng.Row + 1
vorher stand da + 2
Zusätzlich noch die Bedingung hinzugefügt:
If IsEmpty(terminDef) Then
…
End If
damit es nicht „nach unten durchrauscht“ und dann den letzten oftmals unpassenden Eintrag nimmt.
Gefällt mirGefällt mir
Dankeschön…
Gefällt mirGefällt mir