Lat long coordinaten omzetten in hyperlink naar Google Maps satteliet

[destrijdbijl]

Beste mensen,

Als controle functie binnen een onderzoek wil ik vanuit een hyperlink in Excel foto's van Google Maps Satteliet kunnen bekijken. In het Excel bestand staan coördinaten weergegeven.
In een cel staat het Lat coordinaat 52° 33' 24,2", in een andere cel het Long coordinaat 4° 52' 29,6" . Hij geeft weer dat de celeigenschappen standaard zijn.

Ik zou graag een hyperlink willen maken waar ik op kan klikken zodat er een nieuwe pagina opent met een satteliet weergave in Google Maps. (of Bing maps) Als satteliet weergave niet lukt dan de "gewone" weergave, dan moet ik zelf nog maar een keer op "satteliet vieuw" klikken.

In de bijlage heb ik enkele coördinaten weergegeven zoals deze in mijn database worden weergegeven.

Wie kan mij helpen?

Alvast hartelijk dank,

David Bijl

 

[wampier]

Als je de coordinaten in decimale notatie omzet kun je direct een link creeren

de link is:

https://www.google.nl/maps/@[LAT],[LONG],1000m/data=!3m1!1e3

als je daarin [LAT] en [LONG] vervangt door digitale notatie ben je er

 

[destrijdbijl]

Beste Wampier,

Dank voor je snelle reactie. Ik kom er nog niet uit. Kan je een voorbeeld-link maken zodat ik deze verder kan kopiëren?

Ik wil dus op elke regel een link krijgen.

Groet,

David

 

[lam201]

David,


zie bijlage.
In VBA een formule gemaakt die coordinaten in graden/minuten/seconden omzet in decimalen coordinaten.
deze coordinaten kun je vervolgens gebruiken in een hyperlink naar Google maps


Lambert

Bekijk bijlage lat long_L.xlsm

 

[destrijdbijl]

Dag Lambert,

Dat ziet er goed uit. Is het ook mogelijk om dit zonder VBA te maken?

David

 

[AlexCEL]

Voortbordurend op Lambert zijn werk, hierbij een draak van een formule die zonder VBA de coördinaten omrekent, en er gelijk een hyperlink naar Google maps in satellite view van maakt zonder tussenkomst van extra kolommen.

=HYPERLINK("http://www.google.com/maps/place/"&SUBSTITUEREN((LINKS($A2;VIND.SPEC("°";$A2)-1)+(DEEL($A2;1+VIND.SPEC("°";$A2);VIND.SPEC("'";$A2)-VIND.SPEC("°";$A2)-1))/60+(DEEL($A2;1+VIND.SPEC("'";SUBSTITUEREN($A2;"""";""));LENGTE(SUBSTITUEREN($A2;"""";""))-VIND.SPEC("'";SUBSTITUEREN($A2;"""";""))))/3600);",";".")&","&SUBSTITUEREN((LINKS($B2;VIND.SPEC("°";$B2)-1)+(DEEL($B2;1+VIND.SPEC("°";$B2);VIND.SPEC("'";$B2)-VIND.SPEC("°";$B2)-1))/60+(DEEL($B2;1+VIND.SPEC("'";SUBSTITUEREN($B2;"""";""));LENGTE(SUBSTITUEREN($B2;"""";""))-VIND.SPEC("'";SUBSTITUEREN($B2;"""";""))))/3600);",";".")&"/data=!3m1!1e3";"Klik")

PS Ook nog maar even werkend voorbeeld toegevoegd: Bekijk bijlage lat long_hyperlink.xlsx

 

[destrijdbijl]

Beste Alexcel,

Dat is inderdaad een draak zeg! Maar wel werkend en daar gaat het om!

Hartelijk dank voor jullie meedenken!

David

 

[AlexCEL]

Als je tevreden bent, zet je de vraag dan nog even op opgelost?

 

[destrijdbijl]

Beste AlexCEL

Het onderzoek lag even stil, maar pak dit nu weer op...

Als ik jou voorbeeld bestand open werkt het prima, maar met de door jou gebruikte formule =Convert_Decimal krijg ik #NAAM? te zien. Komt dat doordat jij met een andere versie van Excel werkt? Engels talig? Ik kan geen functie vinden welke er op lijkt. Weet jij een oplossing?

Alvast dank,

David

 

[destrijdbijl]

Ik bedoel als ik jou formule intyp in mijn werkblad.

 

[plongske]

In het voorbeeld van AlexCel staat toch geen convert formule?

 

[destrijdbijl]

Dag Plongske,

Excuus, ik was met een eerder voorbeeld van Lam201 aan de slag. Maar het voorbeeld van AxelCel werkt nu ook in mijn werkblad!

Groet,

David