6.5k Aufrufe
Gefragt in Tabellenkalkulation von
Hallo liebe Support-Net Gemeinde:

ich möchte in Excel Reisezeiten berechnen (Gesamte Dauer Von-Bis).
Wenn die Reise innerhalb eines Tages (z.B. Ab: 8:00 Uhr, an: 23:00
Uhr) geht, ist das ja auch kein Problem.

Schwieriger wird's, wenn man erst am nächsten Tag ankommt und
über mehrere Orte fährt (siehe Beispiel). Gibt es da eine Logik, die
man anwenden kann, bei z.B.

"Wenn Ankunft an Ort C an Tag 1 um 20:00 Uhr, aber Abfahrt an Tag 1
nur früher als 20:00 Uhr möglich, dann wähle nächstmögliche Abfahrt
an Tag 1+n und berechne die gesamte Reisedauer" ?

Beispiel anbei: http://workupload.com/file/c4k4OfUM

Vorab tausend Dank!!

11 Antworten

0 Punkte
Beantwortet von paul1 Experte (4.9k Punkte)
Hallo,

habe mir die Beispieldatei angesehen und am Mittwoch Ankunft Ort A 21h und Abfahrt Ort B 20h (ich nehme an Sollzeit) festgestellt.
In welcher angemessenen Zeit soll dann die Abfahrt von Ort B erfolgen?.

Was die Errechnung der Gesamtreisezeit betrifft, könnte man was über 24h ist in den neuen Tag eintragen, das muß ich mir aber noch genauer anschauen.

Gruß

Paul1
0 Punkte
Beantwortet von kjg17 Profi (34.4k Punkte)
Hallo,

wenn ich das richtig sehe geht es hier um die Berechnung der Reisedauer für Ermittlung der Verpflegungsmehraufwendungen bei Dienstreisen.

Dafür könntest du die z.B. -> HIER die Reisekostenabrechnung-Vorlage herunterladen. Bei dieser Excel-Vorlage werden im Arbeitsblatt 'Verpflegungsmehraufwand' die entsprechenden Reise-Daten eingetragen und das Ergebniss dann in das Arbeitsblatt 'Reisekostenabrechnung' übernommen.

Falls es dir nicht darum ging, könntest du dir zumindest ansehen, wie das dort mit den Zeitberechnungen realisiert ist.

Gruß
Kalle
0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi all ^^

Zeitberechnung
Excel vb/Google ansteuern und die Wegstrecke (km) berechnen lassen

Bezug nehmend auf die durchshnittsfeschwindigkeit deines fahrzeuges laesst sich nun die zeit berechnen

gruss nighty
0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi all ^^

ein code aus dem netz,ungeprueft
da gibt es bestimmt einiges :-)

gruss nighty

Sub Entfernung()
Dim IEApp As Object
Dim IEDocument As Object
Dim blnGefunden As Boolean
Dim RouteStr As String
Dim Von As String
Dim Nach As String
Dim Von_PLZ As String
Dim Nach_PLZ As String
Dim Von_Ort As String
Dim Nach_Ort As String
Dim Von_Straße As String
Dim Nach_Straße As String
Dim IEDoc As Object
Dim strTeile As Variant
Dim i As Long
Dim msg As String

blnGefunden = False
Von_PLZ = ""
Von_Ort = "Frankfurt"
Von_Straße = ""
Nach_PLZ = ""
Nach_Ort = "Köln"
Nach_Straße = ""
Von = Adresse(Von_Straße, Von_Ort, Von_PLZ)
Nach = Adresse(Nach_Straße, Nach_Ort, Nach_PLZ)
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "http://maps.google.com/maps? _
saddr="
& Von & "&daddr=" & Nach & "&hl=de"
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Set IEDoc = IEApp.Document
strTeile = Split(IEDoc.Body.innerText, vbCrLf)
'Debug.Print IEDoc.Body.innerText
For i = LBound(strTeile) To UBound(strTeile)
If InStr(1, strTeile(i), "Minuten", vbTextCompare) > 0 Then
blnGefunden = True
msg = "Von: " & Von & vbNewLine & "Nach: " & Nach & vbNewLine & strTeile(i)
End If
Next
If blnGefunden = False Then
MsgBox "Die Adresse konnte nicht decodiert werden." & vbCr & "Falsche PLZ?"
Else
MsgBox msg
End If
IEApp.Quit
Set IEDocument = Nothing
Set IEApp = Nothing
End Sub


Function Adresse(Street As String, City As String, ZIP As String) As String
Dim HStr As String

If Street <> "" Then HStr = Street & ","
If ZIP <> "" Then HStr = HStr & ZIP & " "
If City <> "" Then HStr = HStr & City
Adresse = Trim(HStr)
End Function
0 Punkte
Beantwortet von
Hallo,

danke für eure Antworten.

Die Berechnung nach km hilft mit leider nichts, da es hier tatsächlich auf die Zeit
ankommt (und nicht mit einem Auto gefahren wird).

@Pauli: die Zahlen sind korrekt - das bedeutet z.B. für Mittwoch und Ort B:
Ankunft um 21:00. Da Mittwochs nur Abfahrt 20:00 Uhr möglich ist, muss Abfahrt
Donnerstag 21:00 Uhr erfolgen. (die Lila markierte Fahrt.)

Die Excel-Logik die ich z.B. für Mittwoch, Ort B suche, müsste sein: "Wenn Abfahrtszeit
< Ankunftszeit, dann Abfahrt am nächstmöglichen Tag"

@Kalle: kannst du das Formular bitte auf "workupload" hochladen? Ich habe von hier
aus leider keinen Zugriff auf den von dir angegebenen Server.
0 Punkte
Beantwortet von paul1 Experte (4.9k Punkte)
Hallo Stinnes86,

Um mich ernsthaft mit dem Problem beschäftigen zu können, wären noch einige Details zu klären:

Das mit dem Mittwoch auf Donnerstag Ankunft Ort B 21h, geplante Abfahrt Ort B 20h, wäre die nächstmögliche Abfahrt am Donnerstag um 21 h hast Du erklärt..
In dem Fall ist die Uhrzeit Ankunft (Mittwoch) Ort B 21h Abfahrt Ort B (Donnerstag) 21h konform, ist das der Regelfall oder handelt es sich hierbei um vorgegebene Zeiten.

Von Samstag auf Sonntag ist das aber etwas anders:

hier sind die Verhältnisse (Zeiten) gleich wie am Mittwoch, jedoch die nächstmögliche Abfahrt wäre erst am Sonntag um 23h und nicht wie vorher am Donnerstag um 21 h.

Gibt es da Unterschiede von einem Wochentag auf den anderen?

Gruß

Paul1

[sub]Excel > Access > MS-Office
MS Windows XP Professional SP3/32 Bit
MS Windows 7 Professional SP1/64 Bit
ECDL-Syllabus Version 4.0
FIBU/KORE/PV/KA/AB[/sub]
0 Punkte
Beantwortet von kjg17 Profi (34.4k Punkte)
Hallo Stinnes,

das ist eigentlich ein ganz normaler Link, keine Ahnung, weshalt dein System was dagegen hat. Eventuell hat es was gegen die Makros in dieser Datei, aber die sind nun mal in dieser Vorlage für eine einfache Erstellung einer Reisekostenabrechnung nach den ab 2014 geänderten gesetzlichen Bestimmungen erforderlich.

Ich hab das Teil jetzt mal vorsichtshalber gepackt und wie von dir gewünscht bei "workupload" hochgeladen. -> Vorlage_Reisekostenabrechnung_2014.zip

Gruß
Kalle
0 Punkte
Beantwortet von
Hallo zusammen,

@Paul1

a) Zu Mittwoch-Donnerstag: du meinst wohl "Abfahrt Ort B (Donnerstag) 20h
konform (statt 21h?)". Antwort: Das sind vorgegebene Zeiten.

b) Zu Samstag -Sonntag-Montag:

Die Tabelle ist so zu lesen:
Samstag 17:00 Uhr los, nächstmögliche Weiterfahrt in Ort B am Sonntag um
23:00 Uhr möglich; Ankunft in Ort C am Montag um 2:00 Uhr.

-> Somit wäre man von Samstag, 17 Uhr bis Montag, 2:00 Uhr unterwegs. Wie
lange ist die gesamte Reisezeit?

@Kalle: danke für die Datei, kann ich nun öffnen. Löst nur leider nicht mein
Problem nicht, da dort nicht die Logik abgebildet ist, "Wenn Abfahrtszeit
< Ankunftszeit, dann Abfahrt am nächstmöglichen Tag"

Merci und Grüße
0 Punkte
Beantwortet von paul1 Experte (4.9k Punkte)
Hallo Stinnes86,

schau mal, ob ich es richtig verstanden habe, nur mit dem Freitag komme ich nicht ganz klar, hier gibt es eine Abfahrt um 20h in Ort B ohne das in Ort A gestartet wurde.

Die Formeln:

G4
=WENN((C4="")*(D4="")*(E4="");REST(F4-C9;1);REST(F4-C4;1))
G5
=WENN(D4>20/24;F5-C4;F5-C5)
G6
=WENN(D5>20/24;F6-C5;F6-C6)
G7
=WENN(D6>20/24;F7-C6;F7-C7)
G8
=WENN(D7>20/24;F8-C7;F8-C8)
G9
=WENN(D8>20/24;F9-C8;F9-C9)
G10
=WENN((D9>20/24)*(F4="");"";F10-C10)

Den Bereich C4 bis G10 habe ich benutzerdefiniert [h]:mm formatiert.

Offen bleibt noch, ob es auch von Montag bis Freitag Tagesüberschreitungen geben kann.

Gruß

Paul1
0 Punkte
Beantwortet von paul1 Experte (4.9k Punkte)
Hallo nochmals ich,

die Formeln in AW9 bringen nicht ganz das gewünschte Ergebnis, schau es mir übers Wochenende nochmals an.

Gruß

Paul1
...