Hyperlink zu Google Maps

[mellow]

Hallöchen

Wer kann mir mal weiter helfen...

Ich habe in Spalte G PLZ & Ort und in Spalte N die Straße und brauche nun einen Hyperlink aus den 2 sachen zu Google Maps
                          z.b 53840 Troisdorf            Taubengasse   

Und bei diesen Code soll er dann den Hyplink mit einfügen In Spalte "M"

Code:

Option Explicit
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"
            Else
                rngTMP.Offset(, -4).Value = ""
                rngTMP.Offset(, -5).Value = ""
            End If
        Next rngTMP
    End If
Fin:
    Application.EnableEvents = True
End Sub

  
Danke

MFG mellow

[00202]

Hallo,

hier mal als Modul mit Button und auch mit dem Ereignismakro in der Tabelle:
[attachment=38590]

Mach was draus.

[mellow]

Nabend,

Bin erst jetzt dazu gekommen, Vielen Dank !!

Da ich ja von VBA keine Ahnung habe, bräuchte ich nochmal eure Hilfe

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

Ich bräuchte X wie gehabt in Spalte A. Die Eingabe der Nummer in Spalte E. Den Google Link in Spalte F und die 0 in Spalte L

Und die Straße in Spalte O

Vielen Dank euch allen   

Gruß Mellow

[schauan]

Hallöchen,

also, A ist Spalte 1,
E ist Spalte 5,
5-4=1

[mellow]

Moin,

Danke, habs hinbekommen  


Gruß Mellow

[mellow]

Hallo zusammen,

könnte man das ganze auch erweitern, das er mir auch automatisch die Entferung in Spalte G anzeigen kann ? Startadresse muß man natürlich hinterlegen, das ist mir schon klar.


Gruß mellow

[schauan]

Hallöchen,

siehe dazu die Beispiele im Beispielbereich. Allerdings auch gleich hier der Hinweis, Du benötigst bei Google eine API. Die ist in geringem Umfang kostenlos, Du musst aber trotzdem Kreditkartendaten hinterlegen.

[mellow]

Guten morgen,


Kann man das evtl. ändern ? das er mir statt den Hyperlink ein kleines Maps symbol anzeigt , wo man drauf klicken kann ?? 


Gruß mellow

[schauan]

Hallöchen,

man kann auch ein Bild mit einem Link versehen.
Den Code dazu kann man aufzeichnen:

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

[{Boris}]

Hi André,

Du hattest im Mai in diesem Thread geschrieben:

siehe dazu die Beispiele im Beispielbereich. Allerdings auch gleich hier der Hinweis, Du benötigst bei Google eine API. Die ist in geringem Umfang kostenlos, Du musst aber trotzdem Kreditkartendaten hinterlegen.

Kennst Du Dich damit ein wenig aus? Ich hatte hier Office 365 - Google API-Key in UDF integrieren - MS-Office-Forum zuletzt gefragt (und vorher bei Herber), weil ich die UDF GetDistance nicht zum Laufen bekomme.
Den API-Key habe ich, aber offensichtlich fehlt es mir dabei an der Kenntnis, ihn richtig zu "konfigurieren".

Danke für ein kurzes Feedback!