Überschneidungen und Pausenzeiten herausrechnen

Hallo Forum,
leider habe ich wohl ein etwas größeres Problem. Ich habe eine Tabelle mit Ausfallzeiten. Die Zeiten können sich überschneiden oder auch in Pausenzeiten liegen. Ich benötige allerdings nur die Ausfallzeit, die tatsächlich in der Betriebszeit liegt und eine Ausfallzeit ohne Überschneidung. Die Berechnung soll sich nur auf den gefilterten Bereich beziehen. In der Beispieldatei ist gelb markiert ein Beispiel für eine Ausfallzeit die zum Teil in der Pause liegt und von der Datenbank direkt richtig berechnet ausgegeben wird (Spalte C, allerdings als Text ausgegeben, daher Achtung!). Blau markiert beispielhaft Überschneidungen + Pausenzeit.
Meine Idee für die Überschneidungen wäre eine Schleifenabfrage mit den vorhergehenden Zeilen, jedoch habe ich hier keine Ahnung wie ich die Pausenzeiten herausrechne, geschweige denn wie ich das ganze in VBA programmieren könnte. Bisher arbeite ich in meinem Makro hauptsächlich mit dem Macrorecorder.
Das Ergebnis der "realen" Ausfallzeit soll in Spalte D ausgegeben werden, allerdings nur in der letzten Zeile der Überschneidung.
Es ist schwer zu erklären, daher hoffe ich dass ich mein Problem gut genug dargestellt habe. Über eine Idee von jemandem wäre ich sehr dankbar!
Beispieldatei:
https://www.herber.de/bbs/user/92068.xlsx
Liebe Grüße und danke,
Tanja

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tanja,
hier mein Vorschlag für eine Makrolösung.
Sie funktioniert, wenn Start- und Ende-Zeit jeweils am gleichen Kalendertag sind.
Gruß
Franz

'Code in einem allgemeinne Modul
Sub prcRealDuration()
Dim wks As Worksheet
Dim Zeile As Long, Zeile_L As Long
Dim ZeitStart As Date, ZeitEnde As Date
Set wks = ActiveSheet 'Tabellenblatt mit Auflistung der Start- und Ende-Zeiten
With wks
Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row
For Zeile = 10 To Zeile_L 'Startzeile ggf. anpassen
If .Rows(Zeile).Hidden = False Then
'nur sichtbare Zeilen berücksichtigen
ZeitStart = .Cells(Zeile, 1).Value
ZeitEnde = .Cells(Zeile, 2).Value
If .Cells(Zeile + 1, 1) > ZeitEnde Or Zeile = Zeile_L Then
'Keine Überschneidung
.Cells(Zeile, 4).Value = fncRealDuration(ZeitStart, ZeitEnde)
Else
'Überschneidung - Zeile suchen bis Startzeit > vorherige Ende-Zeit
Do
Zeile = Zeile + 1
If .Rows(Zeile).Hidden = False Then
'nur sichtbare Zeilen berücksichtigen
If Zeile = Zeile_L Or .Cells(Zeile + 1, 1) > ZeitEnde Then
If .Cells(Zeile, 2) > ZeitEnde Then ZeitEnde = .Cells(Zeile, 2)
.Cells(Zeile, 4).Value = fncRealDuration(ZeitStart, ZeitEnde)
Exit Do
Else
If .Cells(Zeile, 2) > ZeitEnde Then ZeitEnde = .Cells(Zeile, 2)
End If
End If
Loop
End If
End If
Next Zeile
End With
End Sub
Function fncRealDuration(Start, Ende)
Dim arrPausen As Variant
Dim intPause As Integer
Dim UhrzeitStart, UhrzeitEnde
Dim dblSum As Double
'Datum aus Start und Ende herausrechnen für Vergleich mit Pausenzeiten
UhrzeitStart = CDate(Format(Start, "hh:mm:ss"))
UhrzeitEnde = CDate(Format(Ende, "hh:mm:ss"))
arrPausen = Worksheets("Pausen").Range("A3:B10")
dblSum = Ende - Start
For intPause = 1 To UBound(arrPausen)
If UhrzeitStart > arrPausen(intPause, 2) Or UhrzeitEnde = arrPausen(intPause, 1) And UhrzeitEnde  arrPausen(intPause, 1)  _
Then
'im Zeitraum überschneidet mit Beginn der Pause
dblSum = dblSum - (UhrzeitEnde - arrPausen(intPause, 1))
ElseIf UhrzeitStart  arrPausen(intPause, 2)  _
Then
'im Zeitraum überschneidet mit Ende der Pause
dblSum = dblSum - (arrPausen(intPause, 2) - UhrzeitStart)
End If
Next
fncRealDuration = dblSum
End Function

Beliebteste Forumthreads (12 Monate)

Überschneidungen und Pausenzeiten herausrechnen

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread