Wie berechne ich die Zeit zwischen zwei Ereignissen?

Hallo Helmut,

wenn du den größten zeitlichen Abstand zwischen 2 Crashes haben möchtest, probiere es mal mit folgendem Makro. Als Ergebniszelle habe ich H1 genommen. Das kannst du nach deinen Wünschen ändern. Formatiere die Ergebniszelle [h]:mm:ss

Sub Test()
Dim LRow As Long, i As Long, First As Long
Dim varData As Variant, varZeiten() As Variant
Dim Start As Double, Ende As Double
Dim n As Integer

With ActiveSheet
LRow = .Cells(.Rows.Count, "B").End(xlUp).Row
First = Application.Match("crash", .Range("E:E"), 0)
varData = .Range("B" & First + 1 & ":E" & LRow + 1)
Start = .Cells(First + 1, 2)
For i = LBound(varData) To UBound(varData) - 1
If varData(i, 4) = "crash" Then
ReDim Preserve varZeiten(n)
varZeiten(n) = CDbl(varData(i, 2)) - Start
Start = CDbl(varData(i + 1, 1)): n = n + 1
End If
Next
.Range("H1") = Application.Max(varZeiten)
End With
End Sub

Claus

Hallo Helmut,

die größte Dauer ohne einen Crash bekommst du mit:

=MAX(WENN(E1:E1000="crash";D11000))

Die Eingabe der Formel mit STRG+Shift+Enter abschließen.

Oder wenn du die 3 größten Zeiten haben möchtest mit:

=WENNFEHLER(KGRÖSSTE(WENN($E$1:$E$1000="crash";$D$1:$D$1000);ZEILE(A1));"")

Auch diese Formel mit STRG+Shift+Enter abschließen und dann 3 Zeilen herunterziehen.

Falls ich dich nicht richtig verstanden haben sollte, erkläre mal dein Vorhaben etwas weiter oder schreibe in die gewünschte Spalte von Hand die entsprechenden Ergebnisse ein und poste den Screenshot nochmals.

Claus

Nun ja, mit den Formeln in Excel hatte ich´s noch nie. Ich hatte ein ein Makro gedacht, dass das Folgende macht:

Merken, was in der erst Zelle (Spalte D) mit der Zeitdifferenz steht

Addieren, was in der nächsten Zelle der Spalte D steht, solange in der Spalte E nicht "crash" steht.

Diese Summe in die Zelle 8 Spalte H schreiben. Etwas so:

Hallo Helmut,

schreibe in H2:

=WENN(E3="crash";SUMMEWENN($E$2:E2;"<>"&"crash";$D$22)-SUMME($H$1:H1);"")

und ziehe entlang deiner Daten herunter.

Deaktiviere in den Optionen => Erweitert => Optionen für dieses Arbeitsblatt anzeigen die Option "In Zellen mit Nullwert eine Null anzeigen".

Claus

so geht´s mit VBA:

Sub Crashinterval()

Dim Crashinterval As Date

Dim i As Integer

' letzte zeile mit wert in spalte 6

With ActiveSheet

' start in row 2

For i = 2 To .Cells(Rows.Count, 6).End(xlUp).Row

If AscW((.Cells(i, 6).Value)) = 252 Then

'.Cells(i, 6).Select

'.Cells(i, 4).Select

Crashinterval = Crashinterval + .Cells(i, 4).Value

Cells(i - 1, 8).Value = " "

.Cells(i, 8).Value = Crashinterval

Else

Crashinterval = 0

End If

Next i

End With

End Sub