Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Schleife erweitern; Entfernung berechnen

VBA Schleife erweitern; Entfernung berechnen
Wolfgang
Hallo Excel - Freunde,
ich hatte vor einigen Tagen eine Datei mit einem Makro hier gefunden, die über Google Map die Entfernungen berechnet. Wobei Startadresse ein fester Bereich ist und die Zieladressen in der Tabelle in einer Spalte untereinander stehen über eine Schleife nach einander abgearbeitet werden.
Nun würde ich gerne auch das die Startadresse die in einer Spalte in der Tabelle stehen in einer Schleife mit abgearbeitet werden. Leider bekomme ich das nicht hin und hoffe das mir jemand helfen kann das Makro um zu schreiben .
Anbei die Datei:
https://www.herber.de/bbs/user/64883.xls
Gruß und Danke im vorraus Wolfgang

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Schleife erweitern; Entfernung berechnen
05.10.2009 16:38:03
Anton
Hallo Wolfgang,
 ABCDEFGH
1Start (PLZ oder Ortsname)       
2Rissener Landstrasse 270 22559       
3        
4Ziel (PLZ oder Ortsname)RevierEntfernungZeitOrtsname   
5Aastwiete 22880Fw-Osdorf/Wedel   Harderweg 10 22549Fw-Osdorf/Außenstelle/FriedrichRissener Landstrasse 270 22559
6Aastwiete 22880Fw-Osdorf/Außenstelle/Wedel   Rissener Landstrasse 270 22559Fw-Osdorf/Außenstelle/SchenefeldRissener Landstrasse 270 22559
7Abbestrasse 22765Fw-Osdorf/Fw-12   Harderweg 10 22549Fw-Osdorf/Außenstelle/WedelRissener Landstrasse 270 22559
8ABC-Str. 22880Fw-Osdorf/Wedel   Harderweg 10 22549Fw-Osdorf/Fw-12Harderweg 10 22549
9ABC-Str. 22880Fw-Osdorf/Außenstelle/Wedel   Rissener Landstrasse 270 22559Fw-Osdorf/Fw-14Harderweg 10 22549
10Achter de Hoef 22869Fw-Osdorf/Schenefeld   Harderweg 10 22549Fw-Osdorf/Fw-15Harderweg 10 22549
11Achter de Hoef 22869Fw-Osdorf/Außenstelle/Schenefeld   Rissener Landstrasse 270 22559Fw-Osdorf/SchenefeldHarderweg 10 22549
12Achter de Höf 22559Fw-Osdorf/Außenstelle/Friedrich   Rissener Landstrasse 270 22559Fw-Osdorf/WedelHarderweg 10 22549

kannst du erklären , was hier Startadresse(A2 oder?) und Zieladresse ist?
Und was willst du ermitteln:Entfernung,Zeit oder Ortsname?
mfg Anton
Anzeige
AW: VBA Schleife erweitern; Entfernung berechnen
05.10.2009 18:49:38
Wolfgang
Hallo Anton,
emittelt werden sollen die Entfernung und die Fahrzeit.
In der Spalte "F" stehen die Startadressen und in der Spalte "A" die Zieladressen.
gruß wolfgang
AW: VBA Schleife erweitern; Entfernung berechnen
05.10.2009 22:15:59
Wolfgang
Hallo Anton,
vielen Dank es funktioniert nur noch eine Sache bei Adressen die Google map nicht eindeutig erkennt wird eine neue Google seite geöffnet . Könnte man das unterbinden und die Adresse einfach übergehen?
Danke und Gruß Wolfgang
AW: VBA Schleife erweitern; Entfernung berechnen
05.10.2009 22:32:50
Wolfgang
Hallo Anton,
habe ich selbst ändern können. Einfach: IEApp.Visible = True auf False gesetzt.
Danke und einen schönen Abend
Wolfgang
Anzeige
Vorsicht!
06.10.2009 15:25:52
Anton
Hallo Wolfgang,
ersetze den Code durch diesen hier:

Sub Entfernung_google()
  Dim IEApp As Object  
  Dim IEDocument As Object    
  Set IEApp = CreateObject("InternetExplorer.Application")  
  For i = 2 To Tabelle1.UsedRange.Rows.Count  
    IEApp.Visible = False
    IEApp.Navigate "http://maps.google.de/maps?saddr=" & Tabelle1.Cells(i, 5).Value & _
                   "&daddr=" & Tabelle1.Cells(i, 1).Value & "&output=html"
    Application.StatusBar = "Start-> " & Tabelle1.Cells(i, 5).Value & _
                            " Ziel-> " & Tabelle1.Cells(i, 1).Value
    Do: Loop Until IEApp.Busy = False    
    Do: Loop Until IEApp.Busy = False    
    Set IEDocument = IEApp.Document  
    Do: Loop Until IEDocument.ReadyState = "complete"    
    Set result = IEDocument.getElementById("dditd")  
    If Not result Is Nothing Then    
      teile = Split(result.innerText, "–")
      Tabelle1.Cells(i, 3).Value = teile(0)
      Tabelle1.Cells(i, 4).Value = teile(1)
    End If  
    Set IEDocument = Nothing  
  Next
  IEApp.Quit
  Set IEApp = Nothing  
  Application.StatusBar = False
  MsgBox "Fertig"
End Sub  

sonst hast du mehrere IE Instanzen im Hintergrund laufen(siehe Taskmanager).
mfg Anton
Anzeige
AW: Vorsicht!
06.10.2009 17:53:33
Wolfgang
Hall Anton,
danke Dir für Deine Mühe.
Werde das Makro übernehmen.
Gruß Wolfgang

299 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Watchdop für VBA
peter

Hallo VBA Cracks,
Im 5 Minuten-Abstand hole ich mir via Webabfrage Daten aus dem Internet. Nun kann es passieren, dass das VBA Programm bei einer Abfrage z.B. mehr als 5 Minuten hängen bleibt, was ungewollt ist.
Kann man ein solches Problem umgehen, wenn man mit VBA einen Watchdog reali...
11.08.2008 17:39:00
Thread-ID: 1000934
5 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
geschütztes blatt = Fehlermeldung VBA
Pet


Hallo an Alle,
per Button werden 2 Tabellenblätter kopiert und nur die Werte in eine neue Datei gespeichert.
Dies klappt auch wunderbar!
Doch wenn ich die Blätter schütze bekomme ich immer eine Fehlermeldung.
Beende ich diese Fehlermeldung 1004, werden die Blätter trotzdem...
13.08.2008 18:48:00
Thread-ID: 1001622
3 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
Kalenderwoche "von bis" über VBA
bis"

Hi Leute,
ich versuch gerade über VBA eine Tabelle zu erstellen. Irgendwie komm ich aber nicht weiter.
Spalte A: Kalenderwoche z.b 1,2,3,4,5, usw.
SpalteB: Datum von bis: 1.1.09-5.1.09; 6.1.09-13.1.09; usw.
Dahinter wird je nach Bedarf eingetragen.
Auffüllen der Zahlen ist k...
19.08.2008 10:24:25
Thread-ID: 1002828
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
10
4
2
5
2
12
7
2
2
1
1
7
1
2
5
4
5
2
6
2
2
4
2