Mittelwert für Tickets pro Wochentag

Hallo zusammen,
ich habe glaube ich einen Denkfehler irgendwo kann ihn aber nicht finden.
Beispiel Datei: https://www.herber.de/bbs/user/157085.xlsm
Ich habe eine Liste an Datumsanzeigen. Manche Tage kommen mehrfach vor (Uhrzeit unterscheidet sich) und anderen gar nicht. (Tabelle Inbox Historie Spalte K)
Nun habe ich im Modul average das Skript middle_value:


Sub middle_value()
hist_count = Worksheets("Inbox Historie").Cells(Rows.Count, 11).End(xlUp).Row
a = Worksheets("Vorgaben").Cells(6, 2).Value
day_count = 0 'Anzahl Tage
day_sum = 0 'Anzahl Tickets
one_day = 0 'Tagwechsler (gleicher Wochentag)
For mont = 1 To 12 'Monatslauf
For dayz = 1 To 5 'Wochentagslauf
If day_sum  0 Then
Worksheets(a).Cells(mont + 19, dayz + 1).Value = day_sum / day_count 'in die Tabelle eintragen
'Auf null setzen
day_count = 0
day_sum = 0
one_day = 0
End If
For tickets = 2 To hist_count 'Historie durchgehen
If dayz = Weekday(Worksheets(Worksheets("Vorgaben").Cells(5, 2).Value).Cells(tickets, 11), vbMonday) And mont = Month(Worksheets(Worksheets("Vorgaben").Cells(5, 2).Value).Cells(tickets, 11)) Then
'If one_day = 0 Then one_day = Day(Worksheets(Worksheets("Vorgaben").Cells(5, 2).Value).Cells(tickets, 11))
If Day(Worksheets(Worksheets("Vorgaben").Cells(5, 2).Value).Cells(tickets, 11))  one_day Then
one_day = Day(Worksheets(Worksheets("Vorgaben").Cells(5, 2).Value).Cells(tickets, 11))
day_count = day_count + 1
Debug.Print day_sum & "/" & one_day & "/" & mont & "/" & day_count
End If
'Debug.Print day_sum & "/" & one_day & "/" & mont & "/" & day_count
day_sum = day_sum + 1
End If
Next
Next
Next
End Sub

Die Mittelwerte für den Monat sollen dann in die Tabelle Monatsübersicht ab Zeile B20 eingetragen werden. Soll heißen wenn ein Monat 4 Montage hat und die Einträge sich in 15, 5, 5, 15 aufteilen, dann ist der Mittelwert 10.
Dies soll für jeden Monat und jeden Wochentag möglich sein.
Leider habe och nur Beispieldaten vom November und Dezember 2022. Sollte aber reichen zum Testen.
Beim Debug Print sehe ich, dass der erste Wochentag des Monats nicht richtig gezählt wird und zumindest ein Tag doppelt genommen wird. Außerdem wird kein Mittelwert für Montag im November gebildet.
Ich hoffe ich habe nichts vergessen. Ich brüte schon eine Weile darüber und habe keine weiteren Ideen.
Bitte um Hilfe und schon einmal vielen Dank.
Gruß
ChakkaCor

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hier nun ein konkretes händisches Beispiel anhand November 22
- ich gehe in die Tabelle Inbox Historie Spalte K
- Ich Nehme mir jeden Montag (oder auch einen anderen Wochentag) - in diesem Beispiel sind es 17.,14., 21. und 28.11.22 (Montage)
- Für jeden dieser Tage schaue ich, ob und wie viele Einträge existieren - hier sind es 5, 19, 29 und 22
- draus bilde ich die Summe und dividiere diese durch die Anzahl der auffindbaren Montage - in diesem Fall 4 - Das macht 75/4
- daraus ergeben sich 18,75 Ticket je Montag im Monat November 22 im Durchschnitt
Wie zuvor geschrieben sind die Werte Anzahl Wochentage und Anzahl Einträge aber dynamisch, da nicht unbedingt zu jedem Wochentag Werte existieren. Daher müssen beide Werte ermittelt werden und können nicht fix verwendet werden. (Zumindest nach meiner Logik)
Hilft dies nun?

Application.ScreenUpdating = False hist_count = Worksheets("Inbox Historie").Cells(Rows.Count, 11).End(xlUp).Row 'Gesamtanzahl der Einträge ermitteln a = Worksheets("Vorgaben").Cells(6, 2).Value 'Name des Tabellblattes zum Mittelwerte hinterlegen day_count = 0 'Anzahl Tage Zähler day_sum = 0 'Anzahl Einträge Zähler one_day = 0 'Vergleichparameter für Tageswechsel (Montag auf einen neuen Montag im Monat z.Bsp. check = "" 'Prüfparameter, damit Tage nicht doppelt gezählt werden. For mont = 1 To 12 'Monate durchgehen For dayz = 1 To 5 'Wochentage durchgehen For tickets = 2 To hist_count 'Einträge durchgehen 'Wenn Monat und Wochenag passen If dayz = Weekday(Worksheets(Worksheets("Vorgaben").Cells(5, 2).Value).Cells(tickets, 11), vbMonday) And mont = Month(Worksheets(Worksheets("Vorgaben").Cells(5, 2).Value).Cells(tickets, 11)) Then 'Dann prüfen, ob noch kein Tag gezählt wurde um die ersten Daten festzusetzen für den Wochentag im Monat If one_day = 0 Then one_day = Day(Worksheets(Worksheets("Vorgaben").Cells(5, 2).Value).Cells(tickets, 11)) 'Tag zu Vergleich, wann der Tag wechselt day_count = day_count + 1 'den ersten Tag zählen check = one_day & "/" 'Doppeltagprüfer füllen 'Debug.Print day_sum & "/" & one_day & "/" & mont & "/" & day_count End If If Day(Worksheets(Worksheets("Vorgaben").Cells(5, 2).Value).Cells(tickets, 11)) one_day Then one_day = Day(Worksheets(Worksheets("Vorgaben").Cells(5, 2).Value).Cells(tickets, 11)) If InStr(1, check, one_day) = False Then 'verhindern, dass ein Tag doppelt gezählt wird day_count = day_count + 1 check = check & one_day & "/" 'Doppeltagprüfer weiter füllen End If End If day_sum = day_sum + 1 'Eintragsanzahl hochzählen End If If tickets = hist_count Then 'Wenn das Ender erreicht ist, dann If day_sum 0 Then 'Debug.Print day_sum & "/" & day_count Worksheets(a).Cells(mont + 19, dayz + 1) = day_sum / day_count 'Mittelwert errechnen und eintragen 'Zähler und Prüfer auf 0/leer setzen day_count = 0 day_sum = 0 one_day = 0 check = "" End If End If Next Next Next Application.ScreenUpdating = True

Beliebteste Forumthreads (12 Monate)

Mittelwert für Tickets pro Wochentag

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread