Hallo liebes VBA Forum!

Ich muss für meine Fachhochschule ein Projektarbeit machen bei dem meine Kollegen und ich es schaffen müssen mittels JSON Link die Daten von den Bitcoins einlesen müssen. (Wir dürfen leider nicht CSV verwenden)

Wir haben es so weit geschafft, dass das Einlesen und die Aufsplittung funktioniert - allerdings nur im direktbereich.

Es gelingt uns nicht, dass wir die Daten in das Excelsheet bekommen, und wenn dann kommt immer nur ein Datensatz und zwar vom letzten aktuellen Tag.

Der Code für das Einlesen und Splitten im Dirketbereich :

Option Explicit

Sub einlesen()

    Workbooks.Open Filename:="http://www.quandl.com/api/v3/datasets/BITFINEX/BTCUSD.json", Local:=False




Dim ZelleA As String
Dim ZelleB As String
Dim ZelleC As String
Dim ZelleNeu As String
Dim posStart As Long
Dim posEnde As Long
Dim dataString As String
Dim splitData() As String

    ZelleA = Range("A1")
    ZelleB = Range("A2")
    ZelleC = Range("A3")
    
    
    ZelleNeu = ZelleA + ZelleB + ZelleC

    
posStart = InStr(1, ZelleNeu, """data"":[") + Len("""data"":[") + 1

posEnde = InStr(1, ZelleNeu, "],""collapse""") - 1
'Debug.Print posEnde


dataString = Mid(ZelleNeu, posStart, posEnde - posStart)
Debug.Print dataString

splitData = Split(dataString, "],[")


Dim foo() As String
foo = Split(splitData(1), ",")



Dim n As Long

For n = UBound(splitData) To 1 Step -1
    foo = Split(splitData(n), ",")
    'Debug.Print n
Next


'Range("A6:I6").Value = foo()



End Sub

Könnte mir irgendwer im Forum helfen oder Tipps geben wie ich es schaffe, dass ich die Daten ins Excelsheet bekomme??

Mit freundlichen Grüßen Philipp