Clever-Excel-Forum

Hallo,

ich habe mir der Datei von Carsten das Problem, daß ich sie nicht an meine Bedürfnisse angepasst bekomme.

Meine Wünsche:
  die Adressen stehen in einer Spalte untereinander - Ausgabewert dann in der untersten Zeile
  Aufruf der Berechnung über macro und nicht bei Änderung in Zelle
  Berechnung sollte bis zur letzten Zeile ausgeführt werden (als Schleife)

Für Hilfe wäre ich sehr dankbar

Thomas

(24.01.2016, 14:54)Meckpommer schrieb: [ -> ]Meine Wünsche:
  die Adressen stehen in einer Spalte untereinander - Ausgabewert dann in der untersten Zeile
  Aufruf der Berechnung über macro und nicht bei Änderung in Zelle
  Berechnung sollte bis zur letzten Zeile ausgeführt werden (als Schleife)

Hallo Thomas,

ich habe Deine Datei mit angepasst.
Die Adressen sind alle fiktiv.


[attachment=3964]


Gruß Carsten

Hallo Carsten,

ich habe mir das Skript auch mal geladen und finde es sehr gut.
Um keinen mit Arbeit zu belasten, wollte ich es selber anpassen, da ich die Weg Berechnung immer von der gleichen Adresse brauche aber ich bin einfach zu blöd dafür.
Kann mir es jemand so abändern, so dass ich oben meine Adresse eingebe und unten die Orte.
Die Berechnung soll immer von meiner Adresse sein zu dem jeweiligem Ort.
Als Beispiel ist ein Bild angehängt.
Vielen lieben Dank im voraus.

Gruß
Mathias

[url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Hallo Mathias,

Du kannst im Tabellenblattmodul das Makro MapCells mit dem Code hier austauschen. Das Makro nimmt dann den letzten Eintrag aus Spalte A als Startadresse. Du musst eventuell zuvor mal die leeren Zellen richtig leeren, war jedenfalls bei mir so. Man könnte da auch noch weiter schrauben, dass mehrere Startorte zu einem Ziel führen.

Private Function MapCells(ByVal o As clsGMaps, Target As Range) As Boolean
On Error GoTo Er
    
    'Hier jeweils die Zellen zuweisen 
    'Es müssen mindestens die Zellen für Start- und Zieladresse zugewiesen werden 
    'alle anderen Felder sind optional... 
    With o.Cells
        'Pflichtfelder: 
        
        If ActiveSheet.Cells(Target.Row, 1).Value = "" Then
          .StartAddress = ActiveSheet.Cells(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row, 1)
        Else
          .StartAddress = ActiveSheet.Cells(Target.Row, 1)
        End If
        .EndAddress = ActiveSheet.Cells(Target.Row, 2)
        
        'optionale Felder: 
        .KM = ActiveSheet.Cells(Target.Row, 3)
        .Time = ActiveSheet.Cells(Target.Row, 4)
        .Link = ActiveSheet.Cells(Target.Row, 5)
        
        'ebenfalls optional 
        'In diesem Beispiel werden die von GoogleMaps ermittelten 
        'Start und Zieladressen in das ursprüngliche Erfassungsfeld eingetragen. 
        'Also in Spalte A und B. 
        'Man kann diese Zuweisung auch weglassen oder andere Spalten zuweisen... 
        If ActiveSheet.Cells(Target.Row, 1).Value = "" Then
          .GMapsStartAddress = ActiveSheet.Cells(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row, 1)
        Else
          .GMapsStartAddress = ActiveSheet.Cells(Target.Row, 1)
        End If
       .GMapsEndAddress = ActiveSheet.Cells(Target.Row, 2)
    End With
    MapCells = True

Ex:
    Exit Function
Er:
    Application.Cursor = xlDefault
    MsgBox CreateErrorMsgText(Err.Number, Err.Description), vbCritical, "Sub: ReadGMaps in Tabelle1"
    Resume Ex
    'For debug: 
    Resume
End Function

Hi,

mal ohne VBA...
dafür erst ab Version 2013?

have fun ;)
[attachment=4043]
lg
Chris

Hallo Chris,

feine Lösung. Als I-Tüpfelchen kann man mit Formeln auch einen Link zu Google Maps erzeugen. Man muss die Eingabe nur etwas genauer definieren, ich habe das hier mal in der Formel für Zeile 2 fest mit Österreich verdrahtet.

Arbeitsblatt mit dem Namen 'LetsFetz'
	A	B	D	E
1	VON	BIS	KM	Google
2	8753 Fohnsdorf, Hauptstrasse 69	8753 Fohnsdorf, Hauptstrasse 11	0,9	Google Maps

Zelle	Formel
E2	=HYPERLINK("https://maps.google.com/maps?saddr=" &$A$2 & "%2C%20oesterreich&daddr=" & $B$2 & "%2C%20Oesterreich";"Google Maps")

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

(02.02.2016, 12:55)chris-ka schrieb: [ -> ]Hi,

mal ohne VBA...
dafür erst ab Version 2013?

have fun ;)

lg
Chris

hallo chris,

gute Arbeit :) würde gerne das [@Hilfe] in der Formel nachvollziehen können. Wo beziehst du das her bzw. was hast du da hinterlegt?
Danke schon mal im Vorraus!

lg
Patrick

Hallo Patrick,

da ist die entsprechende Spalte nur ausgeblendet.

Hallo schauan,

:)
Gute Idee,
aber hier mal die Maps ohne Österreich fix zu hinterlegen.
Edit so nun auch noch mit Fahrtzeit :)
[attachment=4058]
[attachment=4059]

lg
Chris

p.s Fahrtzeiten über Tage hinaus sind nach nicht in Tagen ausgegeben (day,days) aber das kann ja leicht angepasst werden ^^^
z.B Moskau -> Johannesburg -> Dauer > 8 Tage

Hi,

(03.02.2016, 11:14)chris-ka schrieb: [ -> ]aber hier mal die Maps ohne Österreich fix zu hinterlegen.
Edit so nun auch noch mit Fahrtzeit :)

geniales Tool!

PS:
Amman, Jordanien wird nicht gefunden.