Berechnung von Zeitüberschreitungen

Hallo Forum,
Für meine Diplomarbeit versuche ich mich an einer Auswertung über Fresszeiten am Futterplatz von verschiedenen Hunden. Hierzu muss ich einerseits pro Fütterung ein Diagramm erstellen, welches darstellt welcher Hund wann gefressen hat. Das klappt bisher auch schon ganz gut.
Das Problem ist nun folgendes: Wie kann ich ausrechnen lassen, welcher Hund gleichzeitig mit welchem anderen Hund am Futterplatz war? das ganze soll dann eine Matrix geben (siehe Reiter Daten, Wer mit Wem wielang), in der die Zeiten aufsummiert werden.
Hier einmal das, was ich bisher gemacht habe. Vielleicht kann mir ja jemand helfen und sei es nur der Tipp für ein Tool außer Excel das derartige zeitliche Überschneidungen vll besser und eifnacher berechnen kann ;)
Danke schon mal im vorraus.
Vici
https://www.herber.de/bbs/user/48939.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Vici,
mit den Standardformel von Excel kann meines Wissens die Auswertung nicht oder nur mit Hilfe zahlreicher Hilfszeilen/-spalten berechnen.
Mit einer benutzerdefinierten Funktion ist die Auswertung fast kein Problem-wenn da nicht deine merkwürdige Eingabe/Formatierung der Uhrzeiten wäre.
Frage: Warum hast du die Zellen für die Zeitangaben als "mm:ss" formatiert und nicht als "hh:mm" obwohl du Eingaben als Uhrzeiten in hh:mm eingeben und auswerten willst?
In deinem Diagramm ist übrigens die Beschriftung unter der Zeitachse nicht korrekt.
Müsste sein: Zeit[hh:mm]
Möglicherweise ist dies ein Folgeproblem deiner Zellformatierung
Gruß
Franz


Function Gemeinsam(Hund1 As String, Hund2 As String, Fressdaten As Range) As Date
'Berechnung der überlappenden Freszeiten
Dim ZeileH1 As Integer, ZeileH2 As Integer
Dim ZeitHinH1 As Date, ZeitWegH1 As Date, ZeitHinH2 As Date, ZeitWegH2 As Date
Dim i As Integer, j As Integer
For ZeileH1 = 1 To Fressdaten.Rows.Count
If Hund1 = Fressdaten(ZeileH1, 1) Then Exit For
Next
For ZeileH2 = 1 To Fressdaten.Rows.Count
If Hund2 = Fressdaten(ZeileH2, 1) Then Exit For
Next
'Zeiten vergleichen
If IsEmpty(Fressdaten(ZeileH1, 2)) Or IsEmpty(Fressdaten(ZeileH2, 2)) Then
Gemeinsam = 0
Else
For i = 1 To 19
ZeitHinH1 = Fressdaten(ZeileH1, i * 2)
ZeitWegH1 = Fressdaten(ZeileH1, i * 2 + 1)
For j = 1 To 19
ZeitHinH2 = Fressdaten(ZeileH2, j * 2)
ZeitWegH2 = Fressdaten(ZeileH2, j * 2 + 1)
If Not (ZeitHinH2 >= ZeitWegH1 Or ZeitWegH2 = ZeitHinH1 And ZeitWegH2  ZeitWegH1 Then
Gemeinsam = Gemeinsam + ZeitWegH1 - ZeitHinH1 ' + CDate("00:01:00")
ElseIf ZeitHinH2 = ZeitHinH1 And ZeitWegH2 >= ZeitWegH1 Then
Gemeinsam = Gemeinsam + ZeitWegH1 - ZeitHinH2 ' + CDate("00:01:00")
End If
End If
Next
Next
End If
End Function
Formelbeispiel für Zelle D36:
=Gemeinsam($B36;D$35;$B$6:$AN$15)

Diese Formel kannst du für die anderen Hundepaare kopieren.

Beliebteste Forumthreads (12 Monate)

Berechnung von Zeitüberschreitungen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread