Ich habe meine Aufträge in Exceltabelle vorliegen mit den Adressen in Form: PLZ|ORT|STRASSE_NR.
Um mal schnell in Maps nachzuschauen, wo genau die Adresse liegt, habe ich mir ein kleines Makro geschrieben. Vielleicht auch nützlich für euch.
Adressfelder markieren und das Makro ausführen. Es ist egal, wie viel Felder für die Adresse genutzt werden, das Makro verbindet alle markierten Feldinhalte und öffnet damit Maps.
Python
Sub OpenMaps()
'
' Open Google Maps in default browser with selected address
Dim address As String
address = Selection.address(ReferenceStyle:=xlA1, RowAbsolute:=False, ColumnAbsolute:=False)
Dim cellRange As Range
Set cellRange = Excel.ActiveSheet.Range(address)
Dim result As String
Dim nColumns As Integer
nColumns = cellRange.Count
For i = 1 To nColumns
result = result & "+" & cellRange.Cells(1, i).Value
Next i
Dim urlMap As String
urlMap = "www.google.com/maps/place/" & Replace(Right(result, Len(result) - 1), " ", "+")
'MsgBox urlMap
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run urlMap
End Sub
Alles anzeigen