Office: Mehrere Adressen auf Karte anzeigen

Muecke.1982 · 8. April 2017

Hallo miteinander,

hat einer eine Idee wie ich eine Liste von Adressen per Makro mir auf einer Karte z.B. Google Karte anzeigen lassen kann?

ich möchte nicht etwas von Hand importieren müssen sondern möchte das das Makro das machen kann.

ich habe nur keine Ahnung nach was ich suchen muss und wie ich vorgehen muss.

Über Infos würde ich mich sehr freuen.

gruß Mücke

:)

haklesoft · 10. April 2017

Hi Mücke,

vor knapp 10 Jahren habe ich mit VB 6.0 eine kleine Anwendung programmiert, die Adressen aufbereitet und im InternetExplorer via Bing-Maps angezeigt. Die VB-Exe tut es nach wie vor. Und mit Access wurden seinerzeit auch eine Auswahl Datenbank-Adressen auf GoggleMaps positioniert. Die Quellcodes sind aber inzwischen tief in den Sicherungen alter ausrangierter Rechner vergraben. Man soll gar nicht glauben, wie schnell sowas geht. *entsetzt

Wenn Du im Netz oder hier nichts anderes findest könnte ich mal gucken, ob ich da noch was hochziehen kann.

Muecke.1982 · 10. April 2017

Hey haklesoft,

Oh du musst nicht nachschauen, was mir an Daten fehlt ist wie ich die Daten auf die Karte bringe.

Wenn ich nur eine Adresse habe geht das mit einem einfachen Link denn ich zusammen bauen kann und dann aufrufen lasse.

Ich wies nur nicht wie das mit mehreren Adressen geht, so das diese alle auf einer Karte angezeigt werden.

Kannst du dich noch erinnern wie du das gemacht hast?
oder mit welcher APT du das gemacht hast?
Das würde mich glaube ich schon deutlich weiterbringen.

gruß Mücke

haklesoft · 10. April 2017

Im Prinzip lief es darauf hinaus, beim Aufruf der Website im IE die genau passenden Parameter zusammenzubauen. Dabei mussten diverse Zeichen in HTML-verträgliche Zeichen umgewandelt werden. Weitere Adressen wurden nach einem Trennzeichen an den Aufrufstring gehängt. Die Gesamtlänge des Aufrufstrings durfte so etwa 2000 Zeichen nicht überschreiten. Es wurde keine API eingesetzt.

Muecke.1982 · 10. April 2017

Ok, wenn ich dich richtig verstanden habe hast du das alles über einen Link gemacht.

Man kann also bei Bing Karten mehrere Adressen über einen Link aufrufen.

hmm, ich schaffe es noch nicht mal eine Adresse mit einem Link auf einer BING Karte mir anzuzeigen. :-(

Case_Germany · 10. April 2017

Hallo, *Smilie

Du kannst dir auch mal folgendes anschauen: *wink.gif*

Michael Schwimmer...

Dort dann die Nummer 109 "Geodaten in Karte darstellen #2".

Servus
Case

Muecke.1982 · 10. April 2017

Hey Case,

das sieht sehr interessant aus.
bei diesem Artikel geht es jedoch darum das Adressen auf eine in Excel eingebunden Karte (Bild) dargestellt werden. Das ist nicht mein Ziel.

Mein Ziel ist es auf einer BING- oder Google- Karte mir die Daten anzeigen zu lassen, warum ich möchte die Funktionen die diese Karten Anbieter anbieten gerne nutzen mit meinen Adressen.

z.B. wenn man bei Google die 'My Karte' per API erstellen und füllen könnte wehre das eine echt geniale Sache. dann müsste man nicht immer die Excel Tabelle erstellen und von Hand hochladen und definieren müssen was für Spalten für die Adresse ist und was nicht.
Wenn dann auch noch die 'My Karte' direkt aufgerufen wird, kann man in der Karte herum Zoomen die Ansicht (Größe des Ausschnittes) anpassen etc. wie man es gerade benötigt.

Das wäre eine rissen Arbeitserleichterung für mich.

Case_Germany · 11. April 2017

Hallo, *Smilie

na dann wäre das doch was: *wink.gif*

Bing Maps in Excel...

Servus
Case

Muecke.1982 · 11. April 2017

Das ist ja Cool.

Danke, auch wenn ich das nicht in Excel selbst haben wollte, aber was solls.

Ich kann Die Adressen Visualisieren das ist genau das was ich haben wollte.
DANKE

Jetzt muss ich nur noch schauen wie ich das Automatisiere so das immer alles was in meiner liste auch auf der Karte angezeigt wird.

Danke erst ein mal.

haklesoft · 11. April 2017

Hallo Mücke,

hier kommt meine Code-Variante zur Darstellung von Adressen auf Bing.com/Maps im Browser. Es ist keine App erforderlich!
Auf die Übernahme von Adressen aus einer Excel-Datei habe ich hier verzichtet. Das kann jeder selber machen.

Enhalten im Code sind drei Beispiele für das Anzeigen einer einzelnen Adresse, von mehreren Adressen und für das Navigieren zu Adressen.
Bing.com/Maps kann Adressen und Routen sowohl in Kartendarstellung als auch in Luftbild-Ansicht zeigen Code:

Option Explicit

' #################################################################
' Lokalisierung von Adressen mit Bing.com/Maps im Browser
' Beispiele für MS-Office-Forum von haklesoft
' Version 1.0, Stand 12.04.2017
' #################################################################

Private Const cBINGADDRESS As String = "Cartes"
Private Const cVIEWMAP As String = "&style=r" ' für Kartendarstellung
Private Const cVIEWSAT As String = "&style=h" ' für Luftbilddarstellung
Private Const cVIEWBIRD As String = "&style=b" ' für Vogelperspektive
Private Const cLOCATION As String = "&where1="
Private Const cMULTIPIN As String = "&sp="
Private Const cROUTE As String = "&rtp="
Private Const cSHORT As String = "&rtop=1~0~0"
Private Const cFAST As String = "&rtop=0~0~0"
Private Const cADRSEARCH As String = "adr."
Private Const cSEPARATOR As String = "~"
Private Const cDESCRSEP As String = "_"

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

' Aufrufroutine zum Anzeigen einer einzelnen Adresse mit Bing.com/Maps im Browser
Public Sub zeigeEineAdresse()
' Das Übernehmen einer Adresse aus einer Exceltabelle ist hier nicht dargestellt
Dim lErg As Long
Dim sMapSearch As String
Dim sMapStyle As String
Dim sEingabe As String
Dim lhWnd As Long

sEingabe = InputBox("Geben Sie Straße, PLZ, Ort und Land jeweils getrennt durch Komma ein:", _
"Eingabe einer einzelnen Adresse", "Am Sande, 21335, Lüneburg, Deutschland")
If Len(sEingabe) > 4 Then
sMapSearch = URLcode(sEingabe) ' Zeichen konvertieren
sMapStyle = cVIEWSAT ' Darstellungsart festlegen: hier Luftbild

lhWnd = FindWindow("xlmain", vbNullString)

lErg = ShellExecute(lhWnd, "Open", cBINGADDRESS & sMapStyle & cLOCATION & sMapSearch, vbNullString, Application.Path, 1)
End If
End Sub

' Aufrufroutine zum Anzeigen mehrerer Adressen mit Bing.com/Maps im Browser
Public Sub lokalisiereAdressen()
' Das Übernehmen mehrerer Adressen aus einer Exceltabelle ist hier nicht dargestellt
Dim lErg As Long
Dim sMapSearch As String
Dim sMapStyle As String
Dim sAuswahl(0 To 5) As String ' nicht mehr als 10 gleichzeitig!
Dim lhWnd As Long
Dim i As Long

sAuswahl(0) = "Spielbudenplatz 27-28, 20359, Hamburg, Deutschland"
sAuswahl(1) = "An der Alster 14, 20099,Hamburg, Deutschland"
sAuswahl(2) = "Grindelallee 26, 20146, Hamburg, Deutschland"
sAuswahl(3) = "Alsterkrug Chaussee, 22297, Hamburg, Deutschland"
sAuswahl(4) = "Flughafenstr. 1 - 3, 22335, Hamburg, Deutschland"
sAuswahl(5) = "Stonsdorfer Weg, 22844, Harksheide, Deutschland"

sMapSearch = cADRSEARCH
For i = 0 To UBound(sAuswahl)
sMapSearch = sMapSearch & URLcode(sAuswahl(i)) & cSEPARATOR & cADRSEARCH
Next i
sMapSearch = Left$(sMapSearch, Len(sMapSearch) - Len(cSEPARATOR & cADRSEARCH))
If Len(sMapSearch) > 2083 Then
MsgBox "Die Suchanfrage ist zu lang." & String$(2, vbCrLf) & _
"Aktion wird abgebrochen!", vbCritical, "Adressenlokalisierung mit Bing/Maps"
Exit Sub
End If
sMapStyle = cVIEWMAP ' Darstellungsart festlegen: hier Straßenkarte
lhWnd = FindWindow("xlmain", vbNullString)
lErg = ShellExecute(lhWnd, "Open", cBINGADDRESS & sMapStyle & cMULTIPIN & sMapSearch, vbNullString, Application.Path, 1)
End Sub

' Aufrufroutine zum Navigieren zu mehreren Adressen mit Bing.com/Maps im Browser
Public Sub navigiere2Adressen()
' Das Übernehmen der Adressen aus einer Exceltabelle ist hier nicht dargestellt
Dim lErg As Long
Dim sMapSearch As String
Dim sMapStyle As String
Dim sAuswahl(0 To 5) As String ' nicht mehr als 10 gleichzeitig!
Dim lhWnd As Long
Dim i As Long

sAuswahl(0) = "Spielbudenplatz 27-28, 20359, Hamburg, Deutschland"
sAuswahl(1) = "An der Alster 14, 20099,Hamburg, Deutschland"
sAuswahl(2) = "Grindelallee 26, 20146, Hamburg, Deutschland"
sAuswahl(3) = "Alsterkrug Chaussee, 22297, Hamburg, Deutschland"
sAuswahl(4) = "Zeppelinstr., 22335, Hamburg, Deutschland"
sAuswahl(5) = "Stonsdorfer Weg, 22844, Harksheide, Deutschland"

sMapSearch = cADRSEARCH
For i = 0 To UBound(sAuswahl)
sMapSearch = sMapSearch & URLcode(sAuswahl(i)) & cSEPARATOR & cADRSEARCH
Next i
sMapSearch = Left$(sMapSearch, Len(sMapSearch) - Len(cSEPARATOR & cADRSEARCH))
If Len(sMapSearch) > 2083 Then
MsgBox "Die Suchanfrage ist zu lang." & String$(2, vbCrLf) & _
"Aktion wird abgebrochen!", vbCritical, "Navigation zu Adressen mit Bing/Maps"
Exit Sub
End If
sMapStyle = cVIEWMAP ' Darstellungsart festlegen: hier Straßenkarte
lhWnd = FindWindow("xlmain", vbNullString)
' An Stelle von cFAST könnte auch cSHORT eingesetzt werden:
lErg = ShellExecute(lhWnd, "Open", cBINGADDRESS & cVIEWMAP & cROUTE & sMapSearch & cFAST, vbNullString, Application.Path, 1)
End Sub

' Zeichenkonvertierungen
Public Function URLcode(ByVal sURL As String) As String
Dim i As Integer
Dim sRet As String
Dim sZeichen As String
Dim iZeichen As Integer

For i = 1 To Len(sURL)
sZeichen = Mid$(sURL, i, 1)
iZeichen = Asc(sZeichen)
Select Case iZeichen
Case 1 To 15
sRet = sRet & "%0" & Hex$(iZeichen)
Case 48 To 57, 65 To 90, 97 To 122
sRet = sRet & sZeichen
Case 160 To 191
sRet = sRet & "%C2%" & Hex$(iZeichen)
Case 192 To 255
sRet = sRet & "%C3%" & Hex$(iZeichen - 64)
Case 128
sRet = sRet & "%E2%82%AC"
Case 129
sRet = sRet & "%C2%81"
Case 130
sRet = sRet & "%E2%80%9A"
Case 131
sRet = sRet & "%C6%92"
Case 132
sRet = sRet & "%E2%80%9E"
Case 133
sRet = sRet & "%E2%80%A6"
Case 134
sRet = sRet & "%E2%80%A0"
Case 135
sRet = sRet & "%E2%80%A1"
Case 136
sRet = sRet & "%CB%86"
Case 137
sRet = sRet & "%E2%80%B0"
Case 138
sRet = sRet & "%C5%A0"
Case 139
sRet = sRet & "%E2%80%B9"
Case 140
sRet = sRet & "%C5%92"
Case 141
sRet = sRet & "%C2%8D"
Case 142
sRet = sRet & "%C5%BD"
Case 143
sRet = sRet & "%C2%8F"
Case 144
sRet = sRet & "%C2%90"
Case 145
sRet = sRet & "%E2%80%98"
Case 146
sRet = sRet & "%E2%80%99"
Case 147
sRet = sRet & "%E2%80%9C"
Case 148
sRet = sRet & "%E2%80%9D"
Case 149
sRet = sRet & "%E2%80%A2"
Case 150
sRet = sRet & "%E2%80%93"
Case 151
sRet = sRet & "%E2%80%94"
Case 152
sRet = sRet & "%CB%9C"
Case 153
sRet = sRet & "%E2%84%A2"
Case 154
sRet = sRet & "%C5%A1"
Case 155
sRet = sRet & "%E2%80%BA"
Case 156
sRet = sRet & "%C5%93"
Case 157
sRet = sRet & "%C2%9D"
Case 158
sRet = sRet & "%C5%BE"
Case 159
sRet = sRet & "%C5%B8"
Case Is < 128
sRet = sRet & "%" & Hex$(iZeichen)
Case Else
MsgBox iZeichen, vbCritical, "Zeichenkonvertierung gescheitert"
End Select
Next i
URLcode = sRet
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Muecke.1982 · 12. April 2017

Hallo Haklesoft,

Das ist der Hammer. Danke.

DANKE!

Gruß Mücke
Wünsche schöne Osterfeiertage.

markus91 · 19. April 2017

\@ Case_Germany

Tolle Sache funktioniert in meiner Tabelle auch super. Nur eines würde mir noch fehlen. Ich habe Feuerwehren, welche zu verschiedenen Einsätzen fahren. Ist es auch möglich, dass ich die Adresse eingebe und mir auch an dieser Adresse welche mir auf der Karte angezeigt wird die jeweilige Feuerwehr aufscheint, welche sich an dieser Adresse befindet?*mrcool

Office: Mehrere Adressen auf Karte anzeigen

Mehrere Adressen auf Karte anzeigen

Mehrere Adressen auf Karte anzeigen

Mehrere Adressen auf Karte anzeigen

Mehrere Adressen auf Karte anzeigen

Mehrere Adressen auf Karte anzeigen - Similar Threads - Adressen Karte anzeigen

Adresse aus Teilen eines Nummernblocks einfügen

Empfänger sieht primäre Adresse statt Alias, an den die Mail ging

Falsche E-Mail-Adresse in Outlook Live nach IONOS-Migration

Antwort-E-Mail-Adresse gleich Empfang-E-Mail-Adresse

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Outlook 365 sendet immer an kryptische Adresse

Matrixformel über 2 verschiedene Tabellen