google maps
 

Hallo
Habe in Excel eine Projektverwaltung mit Adressen.
Möchte nun Funktion, sodass durch anklicken einer Adresse in Google Maps - Meine Karten die Adresse gesucht wird und dort ein Marker gesetzt wird.
Geht das mit VBA? (Den "Excel-Teil" von VBA kann ich) oder geht es irgendwie anders (einfacher) auch?

Grüße
Chr

am einfachsten man berechnet den link dazu (z.B. http://maps.google.de/maps?f=q&hl=de...alfischgasse+5)

Ok, Danke.
Folgendes funktioniert:
Set goomaps = CreateObject("InternetExplorer.Application")
goomaps.Visible = True
wohin = "http://maps.google.de/maps?q= straße nr, PLZ Ort"
goomaps.navigate2 wohin

Dass öffnet aber jedesmal ein neues Fenster.
Habs schon geschafft, abzufragen, ob es bereits ein google-maps-fenster gibt, und hab auch den handle davon:
goomaps = FindWindow("IEFrame", "Google Maps - Microsoft Internet Explorer"

Nur weiß ich nicht, was ich mit dem handle machen soll, damit die Adresse in dieses Fenster geschrieben wird, so nach dem Motto:

weißnichtwie(goomaps).navigate wohin

Grüße
Chr

Set goomaps = CreateObject("InternetExplorer.Application")
goomaps.Visible = True
wohin = "http://maps.google.de/maps?q= straße nr, PLZ Ort"
goomaps.navigate2 wohin

...das nächste mal:

goomaps = FindWindow("IEFrame", "Google Maps - Microsoft Internet Explorer"
wohin2 = "http://maps.google.de/maps?q= straße nr, PLZ Ort"
goomaps.navigate2 wohin2

funktioniert das nicht?!

Hallo Void
Tschuldige, dass solange Funkstille (Zuerst Stress, dann langer Urlaub)
Funktioniert leider nicht, da sich der Fenstertitel ändert
(Vor "Google Maps - Microsoft Internet Explorer" steht die zuletzt gesuchte Adresse)
Deswegen wollte ich den Fenstertitel ändern:
goomaps.Locationname = "Google Maps"
Doch das will er nicht -> Fehlermeldung

grüße
Chr

hallo back,
du hast geschrieben, dass du den handle von dem bestehenden fenster hast...:D
d.h. du bräuchtest den kompletten namen?

bzw. kannst du dir nicht einfach den handle vom zuletzt geöffneten window merken?

Den Fensterhandle habe ich (nicht mit FindWindow sondern mit einer ergoogelten Funktion, die nur einen Teil des Fensternamens braucht:
Function SearchHndByWndNameParent) und daraus den kompletten Fensternamen

Hab also:
Den Fensterhandle
Den Fensternamen

Nur weiß ich nicht was ich damit machen soll, daß navigate2 funktioniert.