Hallo,

ich scheitere gerade an einer simplen Aufgabe und verstehe nicht warum: Vielleicht kann mir einer von euch sagen warum ich auf dem Schlauch stehe???

Also ich habe folgenden Snippet Code, welcher funktioniert:

Formula1 = getdata(apexserver() + "/detectordata/" + CStr(detectorid))
Dim Parsed As Object
Set Parsed = JsonConverter.ParseJson(Formula1)

jetzt wollte ich daraus eine Funktion machen, welche nicht funktioniert:

Public Function getjson(url) As Object
        formula1 = getdata(url)
        Set getjson = JsonConverter.ParseJson(formula1)
End Function

Wenn ich jetzt die Funktion mit: 

url= apexserver() + "/detectordata/" + CStr(detectorid)
Parsed = getjson(url)

aufrufe, dann bekomme ich "Argument ist nicht optional" als Fehler zurück in der Zeile Set getjson = JsonConverter.ParseJson(formula1)

Warum?