Google maps

[oceanrace]

Ik wil graag de volgende formule koppelen aan het Google maps logo (afbeelding):

=HYPERLINK("http://maps.google.nl/maps?f=q&hl=nl&geocode=&q="&TEKST.SAMENVOEGEN(E2;" ";K2;", ";P2);"Google maps")

Kan dit?

 

[Atwist]

Beste oceanrace

Wilt de code tag gebruiken

=HYPERLINK("http://maps.google.nl/maps?f=q&hl=nl&geocode=&q="&TEKST.SAMENVOEGEN(E2;" ";K2;", ";P2);"Google maps")

:thumb:

 

[oceanrace]

niemand die hier een oplossing op weet?
Ik heb nu de afbeelding maar in de cel gezet, maar het liefst
maak ik de afbeelding zelf actief...

zie voorbeeld

 

[Warme bakkertje]

Zie bijlage

 

[oceanrace]

Hoi Rudi,

Bedankt voor je hulp, echter...
omdat ik dit bestand moet delen met verschillende gebruikers op
verschillende computers wil ik liever geen macro's gebruiken.
Ik werk zelf met office 2008 voor de mac waar dit niet goed werkt.
Kan het ook zonder macro's?

Groet,
Bas

 

[Wigi]

Een hyperlink op een image kan ook, maar dan is de link statisch, en kan het niet verwijzen naar cellen.

 

[oceanrace]

Een hyperlink op een image kan ook, maar dan is de link statisch, en kan het niet verwijzen naar cellen.

Dan gaat het dus niet lukken.... ?

 

[Wigi]

Dan gaat het dus niet lukken.... ?

Ik neem aan dat dat een retorische vraag was?

 

[oceanrace]

Ik neem aan dat dat een retorische vraag was?

Ja, maar wel een twijfelachtige.

 

[Ginger]

Een hyperlink op een image kan ook, maar dan is de link statisch, en kan het niet verwijzen naar cellen.

Sorry Wigi, ik doe het niet graag, maar ik moet je vrees ik tegenspreken...

oceanrace, plaats het codeblokje in een standaard module en verbind je afbeelding aan deze macro. Als je het logo aanklikt, zal je worden doorgelinkt naar de betreffende site/adres.

Sub VolgHyperlink()
Dim HuidigeCel As Range

    Set HuidigeCel = ActiveCell
    Application.ScreenUpdating = False
    ActiveSheet.Shapes("Afbeelding 2").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "http://maps.google.nl/maps?f=q&hl=nl&geocode=&q=" & [E2] & " " & [O2] & ", " & [T2]
    Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
        :=True
    Selection.ShapeRange.Item(1).Hyperlink.Delete
    HuidigeCel.Select
    Application.ScreenUpdating = True
    
End Sub

Let wel op dat er nog geen enkele foutafhandeling is gemaakt. Dus bij het niet invullen van de belangrijkste cellen zou de boel nog kunnen klappen.

Groet, Leo

 

[Wigi]

Sorry Wigi, ik doe het niet graag, maar ik moet je vrees ik tegenspreken...

Mijn reactie was geschreven net na post # 5, waarin gevraagd wordt of dit zonder macro's kan... Uiteraard dat er met macro's veel meer mogelijk is

 

[Ginger]

Mijn reactie was geschreven net na post # 5, waarin gevraagd wordt of dit zonder macro's kan...

Whooopsss.... DAT had ik niet gelezen.
Ik kon me ook al niet voorstellen dat jij er geen antwoord op had.

Groet, Leo

[EDIT] ...en dan zie ik ook nu pas de veel kortere versie van ons Warme Bakkertje Ik ga voortaan geloof ik eerst maar weer 'ns alle tussenliggende posts lezen voordat ik reageer.

 

[oceanrace]

Ik zou het inderdaad liever zonder macro's willen maar als het niet anders kan gebruik ik jullie oplossingen.
Bedankt voor jullie inbreng!

Groet,
Bas