VBA Excel2007

Darin finden sich wieder unterstrichene Wörter, wie beispielsweise "Siehe auch" oder " Zusatzinfo", welche jedoch auf Links-Anklicken nur markiert werden und auf Rechts-Anklicken und "Öffnen" die Meldung bringen, dass die aktuellen Sicherheitseinstellungen
keinen Download dieser Datei erlauben.

Diese Zusatzinfos gibt es nicht, die Stichwörter sind nur vorbereitet:





Andreas.

Hallo Matthias,



konntest du eine Verbindung von VBA zu GoogleMaps herstellen oder besteht das Problem noch weiterhin?

Konnte dir Beitrag von Andreas Killer weiterhelfen?

Wenn du deine eigene Lösung dazu gefunden hast, dann teile uns diese bitte kurz mit. Damit hilfst du auch anderen Usern mit einer ähnlichen Frage.



Danke für deine Mithilfe!



Gruss,

Solveig

Ich habe das nun so gelöst.

Was mir aber jetzt noch aufgefallen ist das es sein kann das er mehrere Daten Orte zu einem Ort findet. Steinach gibt es z.B. mehrfach in Deutschland.

Hier ist jetzt noch die Frage wie ich das dann bei bedarf in eine Listenbox reinschreibe also nur den Ort die PLZ und den Landkreis. Bei doppelklick in der listbox sollen dann die daten in das Userform schreiben.



Private Sub CommandButton5_Click()

' Adressen Geocoding mit Google Maps

Dim sAdrStrasse As String

Dim sURL As String

Dim sAdress As String

Dim strState As String



' xml parsing

Dim xhrRequest As XMLHTTP60

Dim sQuery As String

Dim domResponse As DOMDocument60

Dim ixnStatus As IXMLDOMNode

Dim ixnLat As IXMLDOMNode

Dim ixnLng As IXMLDOMNode

Dim ixnGEMEINDE As IXMLDOMNode

Dim ixnLK As IXMLDOMNode

Dim ixnORT As IXMLDOMNode

Dim ixnPLZ As IXMLDOMNode



Dim getGoogleMapsGeocode As String

Dim getGoogleMapsLK As String

Dim getGoogleMapsGemeinde As String

Dim getGoogleMapsPLZ As String

Dim getGoogleMapsORT As String





sAdrStrasse = ""



'Textbox Straße prüfen

If SUCHE_STRASSE.text = "" Then

sAdrStrasse = ""

Else

sAdrStrasse = SUCHE_STRASSE.text

End If





' Land festlegen

strState = "Deutschland"

' Adresse zusammensetzten

sAdress = " " & Replace(sAdrStrasse, " ", "+") & " " & strState & " "

'http://maps.google.com/maps/api/geocode/xml?address=1600+Amphitheatre+Parkway,+Mountain+View,+CA&sensor=true_or_false



' Felder leeren

getGoogleMapsGeocode = ""

getGoogleMapsLK = ""

getGoogleMapsGemeinden = ""

getGoogleMapsPLZ = ""

getGoogleMapsORT = ""



Set xhrRequest = New XMLHTTP60

sQuery = "http://maps.googleapis.com/maps/api/geocode/xml?sensor=false&address="

sQuery = sQuery & sAdress & strState

xhrRequest.Open "GET", sQuery, False

xhrRequest.send



Set domResponse = New DOMDocument60

domResponse.LoadXML xhrRequest.responseText

Set ixnStatus = domResponse.SelectSingleNode("//status")



If (ixnStatus.text <> "OK") Then

Exit Sub

End If



''''''''''''''''''''''''''''''''''''''''''''''''

' Breitengrad suchen

''''''''''''''''''''''''''''''''''''''''''''''''



'Wenn XML Tag <lat> vorahanden

If domResponse.SelectSingleNode("/GeocodeResponse/result/geometry/location/lat") Is Nothing = False Then

'... dann Wert aus <lat> in Variable schreiben ...

Set ixnLat = domResponse.SelectSingleNode("/GeocodeResponse/result/geometry/location/lat")



slat = ixnLat.text

TextBox10.Value = Replace(slat, ".", ",")



Else

'... wenn XML Tag <lat> nicht vorhanden

Set ixnLat = Nothing

TextBox11.Value = ""

End If

''''''''''''''''''''''''''''''''''''''''''''''''

' Längengrad suchen

''''''''''''''''''''''''''''''''''''''''''''''''

'Wenn XML Tag <lng> vorhanden

If domResponse.SelectSingleNode("/GeocodeResponse/result/geometry/location/lng") Is Nothing = False Then

'... dann Wert aus <lat> in Variable schreiben ...

Set ixnLng = domResponse.SelectSingleNode("/GeocodeResponse/result/geometry/location/lng")



slng = ixnLng.text

TextBox11.Value = Replace(slng, ".", ",")



Else

'... wenn XML Tag nicht vorhanden

Set ixnLng = Nothing

TextBox11.Value = ""

End If



''''''''''''''''''''''''''''''''''''''''''''''''

' Ortsdaten suchen

''''''''''''''''''''''''''''''''''''''''''''''''

'Wenn XML Tag <address_component - type = locality> vorhanden

If domResponse.SelectSingleNode("/GeocodeResponse/result/address_component[type = 'locality']/long_name") Is Nothing = False Then

'... dann Wert aus <lat> in Variable schreiben ...

Set ixnGEMEINDE = domResponse.SelectSingleNode("/GeocodeResponse/result/address_component[type = 'locality']/long_name")

TextBox1.Value = ixnGEMEINDE.text

Else

'... wenn XML Tag nicht vorhanden

Set ixnGEMEINDE = Nothing

TextBox1.Value = ""

End If



' Administrative Daten für Ort

'Wenn XML Tag <address_component - type = sublocality> vorhanden

If domResponse.SelectSingleNode("/GeocodeResponse/result/address_component[type = 'sublocality']/long_name") Is Nothing = False Then

'... dann Wert aus <lat> in Variable schreiben ...

Set ixnORT = domResponse.SelectSingleNode("/GeocodeResponse/result/address_component[type = 'sublocality']/long_name")

TextBox2.Value = ixnORT.text

Else

'... wenn XML Tag nicht vorhanden

Set ixnORT = Nothing

TextBox2.Value = ""

End If



''''''''''''''''''''''''''''''''''''''''''''''''

' Eingaben und Verbindung zurücksetzen

''''''''''''''''''''''''''''''''''''''''''''''''



SUCHE_STRASSE.Value = ""



'Clean up66.

Set xhrRequest = Nothing



''''''''''''''''''''''''''''''''''''''''''''''''

' GoogleMaps Geocoding XML Ausgabe in Website anzeigen

''''''''''''''''''''''''''''''''''''''''''''''''



' Daten Ausgeben

'Set objIE = CreateObject("InternetExplorer.Application")

'objIE.Navigate sQuery

'objIE.Visible = True



End Sub

Kuckst Du hier:

http://www.blog.methodsinexcel.co.uk/2007/11/12/geocoding-in-excel-using-google-maps-api/

Andreas.

Hallo Claus,

nein ich bekomme keine Fehlermeldung. Wenn ich die selbe Verknüpfung auf einem Rechner mit Excel2003 aktiviere funktioniert es einwandfrei, nur bei dem Rechner mit Excel2007 nicht.

LG