Wollte diese Code verwenden bekomme einen Fehlermeldung bei Kompilieren: Außerhalb eine Prozedur ungültig.

Set ws

Microsoft Scripting Runtime und Entpackte WinRAR von JsonConventer ist auch schon in der VBA wie beschrieben 

Code für VBA,

Dim ws As Worksheet
Dim jsonText As String
Dim jsonObject As Object
Set ws = Worksheets("JSON to Excel Example")
jsonText = ws.Cells(1, 1)
Set jsonObject = JsonConverter.ParseJson(jsonText)

Sub JsonToExcelExample()
Dim jsonText As String
Dim jsonObject As Object, item As Object
Dim i As Long
Dim ws As Worksheet

Set ws = Worksheets("JSON to Excel Example")

jsonText = ws.Cells(1, 1)

Set jsonObject = JsonConverter.ParseJson(jsonText)

i = 3

ws.Cells(2, 1) = "Color"
ws.Cells(2, 2) = "Hex Code"

For Each item In jsonObject
    ws.Cells(i, 1) = item("color")
    ws.Cells(i, 2) = item("value")
    i = i + 1
Next

End Sub
 

schon am Anfangs und bin garnicht am Ziel

Bitte um Hilfe

LG Tomi