Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kartenausschnitt in Tabellenblatt einfügen

Forumthread: Kartenausschnitt in Tabellenblatt einfügen

Kartenausschnitt in Tabellenblatt einfügen
31.07.2017 11:14:07
Jesse
Moin,
wäre es per VBA möglich einen Karten Ausschnitt, von z.B. Google-Maps oder lieber Open Street Map (da lizenzfrei), in ein Excel-Sheet automatisch kopieren zu lassen und wenn ja, welche Befehle wären dies?
Ich frage per UF die Adresse ab und würde dann gerne einen Ausschnitt dieser Adresse einfügen lassen. Der Benutzer kann dann später sofort sehen, wo sich die Adresse befindet und so besser die anderen Ergebnisse der Abfrage überprüfen bzw. bewerten.
Vielen Dank schon mal und liebe Grüße
Jesse
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kartenausschnitt in Tabellenblatt einfügen
31.07.2017 17:07:00
Jesse
Ja genau. Eine Markierung wäre noch schön, aber so sollte es in etwa sein :)
AW: Kartenausschnitt in Tabellenblatt einfügen
31.07.2017 17:16:41
onur
Markierung hängt nur von der Karte ab - Das ist nur von der Karte kopiert und eingefügt.
Für "Einfügen per Makro" müsste das Makro jedoch genau wissen, wie das Fenster mit der Karte heisst und wo sich die Karte auf der Seite genau befindet.
Anzeige
AW: Kartenausschnitt in Tabellenblatt einfügen
31.07.2017 17:24:21
Jesse
Wäre denn eine Live-Abfrage möglich?
Also z.B. ich trage als Adresse "Platz der Republik 1, 11011 Berlin", habe statisch eingegeben wie groß der Ausschnitt sein soll. Also z.B. 1:200 und 15cmx15cm. Und der Kartenausschnitt/Screenshot wird automatisch eingefügt? Dann könnte ich ja über die Adress die Markierung gesetzt haben.
Anzeige
AW: Kartenausschnitt in Tabellenblatt einfügen
31.07.2017 18:16:54
onur
Kennst du irgendeine Seite, wo du vorher die Größe des Karten-Ausschnittes festlegen kannst?
AW: Kartenausschnitt in Tabellenblatt einfügen
01.08.2017 11:57:50
Jesse
Es würde ja eher um den Zoom-Faktor gehen. Bei Google-Maps kann ich den Kartenausschnitt, den ich mir angucke per Link weitergeben. Allerdings ist da - zu mindestens mir - unklar, wie man den Link ändern muss, um den Link zu bekommen. Von daher wahrscheinlich schwierig.
Wäre das vieleicht über das Einbinden einer Karte, also offline, möglich. Man kann sich ja zum Beispiel das Kartenmaterial von OpenStreetMap runterladen. Leider weiß ich auch da nicht, wie das funktionieren würde.
LG
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Kartenausschnitt in Excel einfügen

Schritt-für-Schritt-Anleitung

Um einen Kartenausschnitt aus Google Maps oder OpenStreetMap in Excel einzufügen, kannst Du die folgenden Schritte befolgen:

  1. API-Zugang einrichten: Wenn Du Google Maps in Excel einbinden möchtest, benötigst Du einen API-Schlüssel. Gehe zu Google Cloud und erstelle ein Projekt, um Deinen Schlüssel zu erhalten.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  3. Ein neues Modul erstellen:

    • Klicke auf Einfügen > Modul.

  4. VBA-Code einfügen: Verwende den folgenden Code, um die Google Maps-Karte abzurufen und in Excel einzufügen:

    Sub EinfügenKartenAusschnitt()
   Dim url As String
   Dim Adresse As String

   Adresse = "Platz der Republik 1, 11011 Berlin" ' Hier Adresse anpassen
   url = "https://maps.googleapis.com/maps/api/staticmap?center=" & Adresse & "&zoom=15&size=600x600&key=DEIN_API_KEY"

   With ActiveSheet.Pictures.Insert(url)
       .ShapeRange.LockAspectRatio = msoFalse
       .Width = 150 ' Breite anpassen
       .Height = 150 ' Höhe anpassen
       .Top = Range("A1").Top ' Position anpassen
       .Left = Range("A1").Left ' Position anpassen
   End With
End Sub

  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um den Kartenausschnitt in Dein Excel-Sheet einzufügen.

Häufige Fehler und Lösungen

  • Problem: Der Kartenausschnitt wird nicht angezeigt.

    • Lösung: Überprüfe Deinen API-Schlüssel und stelle sicher, dass er korrekt ist und die Berechtigungen für die Static Maps API aktiviert sind.

  • Problem: Die Karte wird nicht aktualisiert, wenn die Adresse geändert wird.

    • Lösung: Stelle sicher, dass Du das Makro erneut ausführst, nachdem Du die Adresse geändert hast.

Alternative Methoden

Wenn Du eine Karte ohne API einbinden möchtest, kannst Du einen Screenshot von Google Maps oder OpenStreetMap erstellen und diesen manuell in Excel einfügen. Alternativ kannst Du auch einen Hyperlink zur Online-Karte hinzufügen.

Praktische Beispiele

  1. Google Maps: Verwende den oben angegebenen VBA-Code, um eine bestimmte Adresse zu visualisieren.

  2. OpenStreetMap: Um eine Karte von OpenStreetMap einzufügen, verwende die URL-Struktur von OSM und passe sie im VBA-Code an. Beispiel:

    url = "https://staticmap.openstreetmap.de/staticmap.php?center=" & Adresse & "&zoom=15&size=600x600"

Tipps für Profis

  • Experimentiere mit den Zoom-Stufen und der Kartengröße im VBA-Code, um das gewünschte Erscheinungsbild zu erhalten.
  • Wenn Du häufig Adressen visuell darstellen musst, erstelle eine Benutzeroberfläche in Excel, um die Eingaben zu erleichtern.

FAQ: Häufige Fragen

1. Kann ich auch andere Kartendienste verwenden?
Ja, Du kannst auch OpenStreetMap oder Bing Maps verwenden, indem Du die entsprechenden APIs und URLs anpasst.

2. Wie kann ich die Größe des Kartenausschnitts ändern?
Du kannst die Parameter size in der URL anpassen, um die Breite und Höhe der Karte zu ändern.

3. Ist die Verwendung von Google Maps in Excel kostenlos?
Die Nutzung der Google Maps API ist in einem bestimmten Umfang kostenlos, darüber hinaus können Kosten entstehen. Prüfe die Preisliste auf der Google Cloud-Website.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige