Ich möchte die durchschnittliche Beginn-Arbeitszeit aus einer Monatstabelle per VBA ermitteln.
Dabei gibt es jedoch das Problem, dass es Uhrzeiten nach Mitternacht gibt wie z. B. 00:25 aber eben auch Zeiten wie 23:20.
Aus diesen beiden Werten das Mittel ergibt logischerweise 23:53.
Wenn ich jedoch 29 Werte habe und nach folgender Logik arbeite kommt so meine ich Unsinn heraus.
Dim Anz_Tage_A As Integer ' Anzahl Abendwerte
Dim Uhr_A As Double ' Uhrzeit am Abend
' die Werte 00:01 - 10:00 werden als 0,000694444 - 0,416666667 dargestellt
Spalte = 7 ' Spalte 7 bearbeiten
Zelle = Cells(Zeile, Spalte).Value
If Zelle > 0 Then
If Zelle < 0.42 Then ' Wert nach Mitternacht - vor 10:00 ?
Uhr_A = Uhr_A + (Zelle * 24) + 24 ' dann 1 x 24 addieren
Else
Uhr_A = Uhr_A + (Zelle * 24)
End If
End If
If Anz_Tage_A > 0 Then ' mittlere Uhrzeit
Uhr_A = Uhr_A / 24 / Anz_Tage_A
Cells(Zeile, 7).Value = Format(Uhr_A, "hh:mm")
End If
Uhrzeit
00:35
00:25
22:45
23:05
21:40
21:40
23:50
00:10
00:15
00:00
00:15
00:15
00:10
00:20
00:45
23:25
23:55
00:20
00:35
00:10
23:55
23:55
00:30
01:00
00:20
00:05
00:00
00:10
23:30
22:16
Hat jemand eine gute Idee, was ich hier falsch mache? Bei all den Werten nach Mitternacht, kann doch nicht 22:16 als Mittelwert der 29 Zeiten herauskommen.
Vielen Dank im voraus, Gruß Peter