#value Fehler während benutzerdefinierte Funktion in VBA Zugriff auf

Question

-Code funktioniert gut, wenn ich Funktion von VBA zugreifen jedoch, wenn ich die gleiche Funktion in Excel-Zelle nennen (postalcode("23.0776120,72.6538530"), ich #value Fehler bekommen Mein Code ist.

Function PostalCode(latlng As String) As String 

Dim xmlDoc As MSXML2.DOMDocument60 
Dim xEmpDetails As MSXML2.IXMLDOMNode 
Dim xParent As MSXML2.IXMLDOMNode 
Dim xChild As MSXML2.IXMLDOMNode 
Dim Col, Row As Integer 

Set xmlDoc = New MSXML2.DOMDocument60 
xmlDoc.async = False 
xmlDoc.validateOnParse = False 
' use XML string to create a DOM, on error show error message 
If Not xmlDoc.Load("https://maps.googleapis.com/maps/api/geocode/xml?latlng=" & latlng) Then 
    Err.Raise xmlDoc.parseError.ErrorCode, , xmlDoc.parseError.reason 
End If 

Set xEmpDetails = xmlDoc.DocumentElement 
Set xParent = xEmpDetails.FirstChild 

Row = 1 
Col = 1 

Dim xmlNodeList As IXMLDOMNodeList 

Set xmlNodeList = xmlDoc.SelectNodes("//formatted_address") 

Worksheets("Sheet1").Cells(1, 6).Value = xmlNodeList.Item(0).Text 
Dim xyz As String 
PostalCode = xmlNodeList.Item(0).Text 
' PostalCode = "Not Found (try again, you may have done too many too fast)" 
MsgBox PostalCode 

End Function 

Answer 1

It's a documented limitation of User-Defined Functions, die Sie nicht im allgemeinen auf betreiben oder Bereich/Arbeitsblatt Objekte innerhalb eines UDF aus dem Arbeitsblatt namens manipulieren Während Sie am meisten Wert/Eigenschaftsabfragen tun können, können Sie nicht die Umgebung ändern:.

A benutzerdefinierte Funktion aufgerufen Mit einer Formel in einer Arbeitsblattzelle kann die Umgebung von Microsoft Excel nicht geändert werden. Dies bedeutet, dass eine solche Funktion nicht eine der folgenden Möglichkeiten:

• Einfügen, Löschen oder Formatieren von Zellen in der Kalkulationstabelle.
• Ändern Sie den Wert einer anderen Zelle.
• Verschieben, Umbenennen, Löschen oder Hinzufügen von Blättern zu einer Arbeitsmappe.
• Ändern Sie alle Umgebungsoptionen, z. B. Berechnungsmodus oder Bildschirmansichten.
• Hinzufügen von Namen zu einer Arbeitsmappe. Legen Sie Eigenschaften fest oder führen Sie die meisten Methoden aus.

Ich vermute, dass in der VBE mit F8-Taste durch diesen Code schrittweise den Fehler identifizieren, die wahrscheinlich Worksheets("Sheet1").Cells(1,6).Value.

Das Grundprinzip hinter dieser Einschränkung ist die Vermeidung von Endlosschleifen/Kreisreferenzen.

There are ways to circumvent this limitation.