Mittelwert korrekt bilden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
ich kenne deine Datei nicht, ich kenne deine Datenbasis nicht.
Weshalb sollte der Mittelwert denn springen? Oder einen Versatz haben? Denk da mal drüber nach, das kann dir doch NIEMAND beantworten ohne mal deine Datenbasis gesehen zu haben. Ein Mittelwert ist doch nichts was gemäß einer Trendlinie läuft. Ich frag mal ganz doof: Du weisst, was ein Mittelwert ist? Und ein gewichteter Mittelwert?
Ich nehm mal deine ersten beiden Zahlen, die du so grandios unkommentiert in den Beitrag kopiert hast.
00:05:04 (vermutlich aus Zeile 2-601?)
00:15:11 (vermutlich aus Zeile 602-1201?)
Davon ab, dass dein "Versatz" hier 10min und 7sec ist ...
was steht denn in 2-601? Wenn in diesen Zellen immer Werte um die 00:05:04 stehen, passt doch der Mittelwert.
Nehmen wir mal an, in 2-601 steht JEWEILS 00:05:04 und nichts anderes. Dann ist der Mittelwert exakt 00:05:04.
Nehmen wir weiter an, in 602-1201 steht jeweils 00:59:00. Dann ist der Mittelwert 00:59:00
Der "Versatz" sind dann 00:54:56, aber das macht ja nichts.
Mit welcher mathematischen Grundlage möchtest du einen gleichmäßigen Versatz rechtfertigen?
Grüße,
Klaus M.vdT.
PS: Lad mal eine blankodatei mit deinen ersten 2400 Zeiten hoch!

Hi Michael,
ich beziehe mich mal nur auf die Musterdatei, umbasteln auf deine Bezüge musst du selber.
schreibe in der leeren Zelle C1 den Inhalt "00:00:01"
schreibe in die Zelle A3 die Formel "=A2+$C$1" und kopiere das bis nach ganz unten.
(Oder noch einfacher: lass A2 und A3 wie es ist, in A4 kommt die Formel =A3+$A$3 und diese runter kopieren)
Lass das modifizierte Makro laufen (beachte, dass ich bei A3 anfange! Dein Makro fing bei A2 an, aber die Null willst du nicht mitnehmen).

Sub mittel()
Dim lRow4 As Long
Dim lEnd4 As Long
Dim iCnt4 As Integer
'Mittelwert berechnen
lEnd4 = Cells(Rows.Count, 1).End(xlUp).Row
For iCnt4 = 1 To Int(lEnd4 / 600) + 0
Cells(1 + iCnt4, 4) = Application.Average(Range("A" & 3 + lRow4 & ":A" & 601 + lRow4))
lRow4 = lRow4 + 600
Next
End Sub

Der Trick an der Sache: durch die Formel (statt des auto-Vervollständigen) wird Zeile für Zeile die Zeit neu berechnet, dadurch kann sich der Fliesskommafehler hinter der 15ten Nachkommastelle über die Menge der Zeilen nicht aufkummulieren.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread