Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 08:39:33
Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
16.05.2024 23:36:08
IFNA Funktion in WENNNV übertragen
16.05.2024 19:31:55
Zellenfarbe beim.Filtern ändern
16.05.2024 19:29:08
Mit INDIREKT() auf andere Tabellenblätter referenzieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1960to1964
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
1960to1964
1960to1964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Geo-Koordinaten in Excel auswerten - Geschwindkeit errechnen

Geo-Koordinaten in Excel auswerten - Geschwindkeit errechnen
23.01.2024 16:15:28
jtothe
Liebe User,

Ich möchte in Excel eine Liste mit Gps-Koordinaten auswerten. Ganz konkret möchte ich wissen, wieviel Meter diese Koordinaten voneinander entfernt sind um anschließend daraus eine Geschwindigkeit errechnen zu können.

Mir liegen dazu die GPS Koordinaten folgendermaßen in der Tabelle vor: Spalte A2=Latitude (z.B. 50.8938079178172) und B2=Longitude (z.B. 6.95107489058456
) vor.

Gibt es hier jemanden in der Community, der mir da weiter helfen kann wie ich eine Formel entwickle, die dies automatisiert berechnen kann? Ich habe mich schon bei Chat GPT ausprobiert aber die Formel dort funktioniert leider nicht bzw. bekomme ich diese nicht ans laufen.

Vielen Dank vorab für eure Hilfe.

LG

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Disussion
23.01.2024 17:39:02
Fennek
Hallo,

ich möchte diesen Ansatz zur Diskussion stellen:

Gegeben ist eine Liste der PLZ mit Geo-Koordinaten:

01067 Dresden 51,0547 13,7269

Dieser Code soll die Entfernung zwischen 2 PLZ berechnen. Da nur deutsche PLZ verwendet werden, wird die Kugel-Gestalt der Erde ignoriert: 


Function fn_T_Entfernung(ByVal Von_ As String, ByVal Nach As String) As Variant '23 Sekunden

Dim R_von_ As Range, R_nach As Range

Dim Entfernung As Double, i As Long, Land As String

Dim von_bg_km As Double, von_lg_km As Double

Dim nach_bg_km As Double, nach_lg_km As Double

    

Set R_von_ = Columns(1).Find(Von_, , xlValues, xlWhole)

If R_von_ Is Nothing Then Stop                               'falls PLZ nicht in Liste

    

von_bg_km = 71.5 * R_von_.Offset(, 2)   

von_lg_km = 111.3 * R_von_.Offset(, 3)  

    

Set R_nach = Columns(1).Find(Nach, , xlValues, xlWhole)

If R_nach Is Nothing Then Stop



nach_bg_km = 71.5 * R_nach.Offset(, 2) 

nach_lg_km = 111.3 * R_nach.Offset(, 3) 



Entfernung = Sqr((nach_bg_km - von_bg_km) ^ 2 + (nach_lg_km - von_lg_km) ^ 2)



fn_T_Entfernung = Entfernung

End Function


mfg
Anzeige
Danke, WF
23.01.2024 17:17:00
RPP63
Ich habe den Link nicht auf die Schnelle gefunden!

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige