Hyperlink zu Google Maps

[mellow]

Code:

Sub Makro1()
'
' Makro1 Makro
'

'
    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "https://www.irgendwo.de"
    Range("E1").Select
End Sub

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngTMP As Range
    On Error GoTo Fin
    Application.EnableEvents = False
    ' Nur Spalte F und ab Zeile 8
    If Target.Column = 6 And Target.Row > 7 Then
        ' Wenn mehrere Zellen, dann...
        For Each rngTMP In Target
            If Trim(rngTMP.Value) <> "" Then
                rngTMP.Offset(, -4).Value = 0
                rngTMP.Offset(, -5).Value = "X"
                rngTMP.Offset(, 7).Hyperlinks.Add Anchor:=rngTMP.Offset(, 7), _
                    Address:="https://www.google.de/maps/place/" & _
                    rngTMP.Offset(, 8) & ",+" & rngTMP.Offset(, 1), _
                    TextToDisplay:="Link Google Maps"
            Else
                rngTMP.Offset(, -4).Value = ""
                rngTMP.Offset(, -5).Value = ""
                rngTMP.Offset(, 7).Value = ""
            End If
        Next rngTMP
    End If
Fin:
    Application.EnableEvents = True
End Sub

Kann man das nicht da irgendwie mit einbauen ? das er mir statt den Link google maps ein symbol von google maps anzeigt.

Danke für eure Hilfe