Option Explicit
Sub einlesen()
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
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), ",")
Next
End Sub