Heute gibt’s wieder ein Update nach dem monatlichen Bewertungslauf.
Ich freue mich über die mittlerweile über 146.000 € investiertes Kapital und die 822 Punkte in der Top Wikifoliorangliste, Platz 91.
Auch mein Wikifolio liegt weiter unter dem Einfluss der Ukraine-Krise. Aber genau jetzt kann das Wikifolio seine Stärke ausspielen. Wir schichten um in andere Klassen. Immobilien kehren zurück in Depot. Ein sicheres Heim wird wichtiger denn je (Betongold). Und auch die großen Werte verlieren im Krieg zunächst. Und natürlich das gute alte Gold, die Krisenwährung schlechthin.
Mein Wikifolio GTAA Top 3 nach Faber .
Diese drei Werte liegen vorn:
| Asset | Name | ISIN |
| Rohstoffe | ISHS VI-DIV.COM.S.U.ETF | IE00BDFL4P12 |
| Gold | ISHARES GOLD PRODUCERS UCITS | IE00B6R52036 |
| Immoblilien | iShares US Property Yield | IE00B1FZSF77 |
Komplette Übersicht aller Assetklassen:
aktueller Stand Wikifolio:
Auswerte Excel-Tool
Das aktuelle Auswertetool findet ihr ganz unten auf der Hauptseite zur GTAA Top 3 Strategie. Damit lassen sich die Daten der ETF’s von Webseiten auslesen und auswerten. Am Ende erhält man Ranking. Die Prüfung gegen die 200 Tagelinie muss anschließend noch erfolgen. Das Tool dient nur zu Test oder Übungszwecken. Ich übernehme keine Garantie für die Richtigkeit der Werte.
Alle Infos zur Strategie findet ihr hier.
About Post Author
Hallo Nico,
erstmal: Hut ab vor deiner Arbeit hier. Ist echt toll. Mach weiter so!
Ich wollte nun dein Auswertungstool ausprobieren und erhalte bei der Durchführung den Fehler: „Laufzeitfehler 1004 – Anwendungs- oder objektdefinierter Fehler“.
Wenn ich in den Debugger gehe erhalte ich folgende Zeile als fehlerhaft angezeigt:
‚Web-Abfrage Onvista durchführen
shW.Cells.Delete
shW.Cells.NumberFormat = „@“
url = „https://www.onvista.de/etf/“ & Replace(shZ.Cells(zeile, 1).Value, “ „, „-„) & „-Aktie-“ & shZ.Cells(zeile, 2).Value
Set qt = shW.QueryTables.Add(„URL;“ & url, shW.Cells(1, 1))
With qt
.WebSelectionType = x1EntirePage
.WebFormatting = x1WebFormattingNone
.WebDisableDateRecognition = True
.Refresh (False) <—-
.Delete
End With
Weisst du woran das liegen kann?
Danke und Grüße,
Wolf
Hab gerade heute eine Auswertung gefahren.
Bei mir funktionierte das Tool einwandfrei.