Hallo Britta,
im Wesentlichen müsste so etwas dein Problem lösen können. Du musst noch korrigieren, wo deine Werte beginnen und wo die Ausgabe beginnen soll.
u = 1 'Spalte mit dem Sekunden
w = 3 'Spalte mit den Werte
a = 1 'Erste Zeile mit Werten
e = 1 'Erste Zeile für Ausgabe
lz = Cells(Rows.Count, 1).End(xlUp).Row
Columns(5).NumberFormat = "[$-F400]h:mm:ss AM/PM"
b = Cells(1, u).Value: c = 0: d = 0
Do Until a > lz
Do Until Cells(a, u) <> b
d = d + Cells(a, w)
c = c + 1: a = a + 1
If a > lz Then Exit Sub
Loop
b = Cells(a, u)
Cells(e, 5) = Cells(a, u)
Cells(e, 6) = d / c
d = 0: c = 0: e = e + 1
Loop
Gruß
Holger
|