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