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

Wie lange dauerte die Odyssee

Forumthread: Wie lange dauerte die Odyssee

Wie lange dauerte die Odyssee
04.04.2024 04:08:34
Wolfgang
Liebe Excel-Freunde, die Formel zur Berechnung der Entfernung zweier Orte auf der Erdkugel aus deren Koordinaten ist eine riesige Wurzel und so komplex, daß ich sie in mehrere Teile aufgesplittert, die in der Zeile des Ortes in einzelne Zellen, ferner berechne ich den Kurswinkel und aus der Entfernung in km, die in Seemeilen und daraus die benötigte Zeit in h und dann in d.
In der Tabelle "Odyssee" beginne ich mit Ablegen in Ithaka, Homers Odyssee beschreibt aber nur die Rückreise aus Troja, die Summen sind in grün ausgewiesen, darunter ungefärbt die Summen der eigentliche Odyssee, sie dauerte 653 Tage und war gut 40 km weit, nach Syrien.
Entschuldigt bitte einige Überschriften und in den Basisdaten ein paar Einträge habe ich in Spanisch belassen.
Wolfgang
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie lange dauerte die Odyssee
04.04.2024 07:57:32
SF
Hola,
ohne die Datei wird die Odysee wohl nie zu Ende gehen.
Gruß,
steve1da
AW: Formel
04.04.2024 08:46:05
Fennek
Hallo,

teste doch mal diese recht einfach und schnelle Formel: 


Public Function DistCalc_2(ByVal Lat_1 As Double, ByVal Long_1 As Double, ByVal Lat_2 As Double, ByVal Long_2 As Double) As Double

Dim M As Double, N As Double, O As Double, P As Double, Q As Double

On Error GoTo Fehler



    With WorksheetFunction

        M = Cos(.Radians(90 - Lat_1))

        N = Cos(.Radians(90 - Lat_2))

        O = Sin(.Radians(90 - Lat_1))

        P = Sin(.Radians(90 - Lat_2))

        Q = Cos(.Radians(Long_1 - Long_2))

'Change 6371 to 3959 to get your result in Miles

        

        DistCalc_2 = .Acos(.Round(M * N + O * P * Q, 13)) * 6371

    

Fehler:



    If Err.Number > 0 Then Debug.Print M * N + O * P * Q, .Acos(M * N + O * P * Q): Stop

    

    End With

End Function


mfg
Anzeige

Forumthreads zu verwandten Themen

Anzeige, wie lange eine Prozedur noch dauert?
Thorsten K.

Guten Morgen!!Ihr kennt doch sicher alle diese LOADING-Balken im Netz oder wo auch immer, die anzeigen, wie weit das Laden einer Sache schon fortgeschritten ist. Manchmal wir das ganze ja auch in % angezeigt.
Ich lasse mir per Makro einige tausend Formeln von Excel erstellen und das ganze da...
12.05.2002 10:17:52
Thread-ID: 120254
5 Beiträge
Zeiterfassung wie lange Datei offen
Andreas

Hallo zusammen in die Runde,
ich möchte gern das, wenn ich eine Datei öffne, in dieser Datei eine Zeiterfassung
startet. Wenn geschlossen wird, natürlich anhalten.Diese sollte die Minuten gezählt werden.
Beim wiederholten öffnen, wenn möglich weiterlaufen, bis ein abschließender Bef...
25.06.2014 11:23:37
Thread-ID: 1367374
14 Beiträge
darstellen wie lange ein Wert bereits in einer Zel
Kevin

hallo liebe Gemeinde,
in einem Einteilungssheet will ich durch Excel anzeigen lassen wie lange Person A bereits schon an Station X steht. Gibt es da in Excel eine Möglichkeit anzeigen zu lassen wie lange ein wert bereits in einer Zelle steht, oder irgend ein e Form von Counter?
mfG Kevi...
11.05.2017 19:01:34
Thread-ID: 1557939
6 Beiträge
Wie lange läuft ein Makro?-Message
Erich
Hallo, wer kann mir sagen wie man am Ende eines Makros eine Meldung mit der bebrauchten Zeit ausgeben kann?
Danke im Voraus.
Gruß
Erich
17.08.2003 16:44:11
Thread-ID: 295896
5 Beiträge
Anzeige im Arbeitsblatt wie lange es geöffnet ist
Björn
Beim öffnen der Arbeitsmappe möchte ich einen Timestamp machen und ab da an die Zeit hochzählen und ausgeben. Dauer: 00:55:25 (Std:Min:Sek).
Nachdem ein bestimmtes Makro gelaufen ist, soll der Zähler stoppen und ich will den Wert z.B. 55 Minuten und 25 Sekunden zur Weiterverarbeitung nutzen.
...
25.11.2003 14:11:28
Thread-ID: 343139
4 Beiträge
Anzeige
Wie lange braucht der pc?
Markus H.
um in alle zellen einer excel tabelle entweder den wert 0 oder 1 zu schreiben? :-)
hab das gerade laufen.. schätzt mal die dauer.. :-)
(sorry für den unsinnigen post.. hab lange weile)
mfg Markus
11.02.2004 17:08:59
Thread-ID: 380744
6 Beiträge
Wie lange Kommentare hinterlegen ?
LT

Hallo Zusammen,
ich habe eine Excel-Datei die aus einer Datenbank dynamisch erstellt wird.
In jeder Zeile steht später also ein Datensatz, der sich in diesem Fall auf einen jeweiligen Mitarbeiter bezieht.
Nun muss ich zu jeder Zeile eine Menge Text bei Bedarf anbieten.
(ca. so v...
21.07.2005 15:03:55
Thread-ID: 640521
2 Beiträge
Wie lange bis zum Zielgewicht?
Gerrit

Hallo,
ich habe vor einem Jahr angefangen mein tägliches Gewicht in eine Excel-Tabelle einzutragen.
Den Durchschnitt, höchstes/niedrigstes Gewicht anzuzeigen, das bekomme ich alles nach viel Gefummel hin. Stolz bin ich auf mein Diagramm mit logarithmischer Trendkurve!
Jetzt frage...
11.03.2007 21:02:19
Thread-ID: 853391
7 Beiträge
Rückstand (Wie lange nicht gezogen)
Wolfgang

Hallo alle zusammen,
ich möchte den Rückstand (wie lange nicht gezogen in Tagen) von Keno aus einer Tabelle mit den gezogenen Zahlen ermitteln lassen. Und dies für alle 70 Zahlen.
Die Tabelle besteht aus den Spalten: Ziehungs-Nr., Datum, Zahl1 – Zahl 20 (20 Spalten).
Wer kann mir da...
20.06.2007 13:12:00
Thread-ID: 879713
2 Beiträge

Beliebteste Forumthreads (12 Monate)

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