VBA Makro - Öffne Adresse in Google Maps

**BugFix**

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