In diesem Artikel erfährst du, wie du die aktuellen Krypto-Kurse in ein Excel-Sheet einfügen kannst und damit ein Dashboard erstellst. Dazu habe ich ein kurzes Video erstellt:

Krypto Währungen in Excel laden

Alles was ihr dafür benötigt sind die folgenden beiden Websiten:
Die URL für die Krypto-Daten: https://www.worldcoinindex.com/
Die URL für die Währungskurse: https://www.finanzen.net/devisen/doll…
Und den VBA Quellcode:

Sub Daten_Maipulieren()
    Dim tbl_1 As Worksheet
    Dim tbl_2 As Worksheet
    Dim tbl_3 As Worksheet
    Set tbl_1 = Tabelle1 ' EUR USD
    Set tbl_2 = Tabelle2 ' Krypto
    Set tbl_3 = Tabelle3 ' Portfolio
    
    Dim tbl_2_rng_preis As Range
    Set tbl_2_rng_preis = tbl_2.Range("E:E")

    Dim tbl_3_dollar As Double
    
    ' Tabellen aktualisieren
    tbl_2 .ListObjects(1).QueryTable.Refresh BackgroundQuery:=False
    tbl_1.ListObjects(1).QueryTable.Refresh BackgroundQuery:=False
    tbl_2_rng_preis.Replace What:=",", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    tbl_2_rng_preis.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    tbl_2_rng_preis.Replace What:="$", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    For i = 2 To 101
        tbl_2.Cells(i, 13) = tbl_2.Cells(i, 5) / tbl_1.Cells(2, 2)
    Next
    tbl_3.Cells(1, 1) = Now()
  End Sub

Mit dem Video, den beiden Links und dem Code bist du in der Lage dein Portfolio zu jeder Zeit automatisch berechnen zu lassen.

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.