Mit einer Schleife Werte in Funktion übertragen
03.12.2017 11:16:33
Julia
ich habe eine Funktion, mit der ich auf die Google Maps API zugreifen und mir dann die Ergebnisse in meiner Excel ausgeben lasse.
Die Funktion funktioniert auch soweit, mein Problem ist aber, dass ich aktuell den celltype manuell in meiner Funktion ändern muss.
In meinem Excel Sheet gibt es aber eine Spalte (Spalte L), in der die entsprechenden Werte für den celltype schon eingetragen sind.
Kann mir jemand sagen was ich ändern muss, damit mir automatisch wenn ich die Funktion z.B. in M4 eingebe als celltype der Wert von L4 verwendet wird?
Die Funktion sieht bisher wie folgt aus: Function Nearby(Name As String) As Variant Dim Request As New XMLHTTP60 Dim Results As New DOMDocument60 Dim StatusNode As IXMLDOMNode Dim NearbyNode As IXMLDOMNode Dim Node As IXMLDOMNode Dim sz As String Dim celltype As String celltype = Range("L2").Value Request.Open "GET", "https://maps.googleapis.com/maps/api/place/nearbysearch/xml?location=" & _ _ _ Name & "&radius=25&type=celltype&key=AIzaSyA5nFPM_9Ss_X410c35WfoP_obP5UwppRU" & "&sensor=False" Request.send Results.LoadXML Request.responseText Set StatusNode = Results.SelectSingleNode("//status") Select Case UCase(StatusNode.Text) Case "OK" For Each Node In Results.SelectNodes("//PlaceSearchResponse/result/name") sz = sz & Node.nodeTypedValue & ", " Next Nearby = Left(sz, Len(sz) - 2) 'remove last ", " Case "ZERO_RESULTS" Nearby = "Adresse existiert nicht" Case "OVER_QUERY_LIMIT" Nearby = "Serverlimit erreicht" Case Else Nearby = "Unbekannter Fehler" End Select End Function
Schon mal vielen Dank!