Anzahl von Datum&Zeit zählen
Datum&Zeit
ich bekomme eine Datei, in der stehen in Spalte O Datums- und Zeitangaben in der Form "M/D/YYYY, h:mm AM/PM". Das kann ich auch nicht ändern.
Nun soll ich auswerten, wieviele Zeilen zu einem bestimmten Tag zu einer bestimmten Stunde existieren.
Dazu habe ich eine Tabelle der Form (die kann ich wenn nötig anpassen lassen)
SpalteA SpalteB SpalteC SpalteD
Zeile1 28.4. 29.4. 20.4
Zeile2 0-1Uhr
Zeile3 1-2Uhr
Zeile25 23-24Uhr
Ich habe mir bisher folgendes zusammengebastelt:
Sub test()
a=Auswertungsblatt
b=Quelldatenblatt.Name
letzte_Spalte=a.Cells(1,Columns.Count).End(xlToLeft).Column-1
For i=2 to letzte_Spalte
For j=2 to 25
kleinster_Wert=Format(a.Cells(1,i).Value, "M\/D\/YYYY") & ", " & _
Format(Split(a.Cells(j,1), "-")(0)& ":00", "h:mm AM/PM")
groesster_Wert=Format(a.Cells(1,i).Value, "M\/D\/YYYY") & ", " & _
Format(Split(Split(a.Cells(j,1),"-")(1), "Uhr")(0) & ":00", "h:mm AM/PM")
a.Cells(j,i).Value=Evaluate("=SumProduct((" & b & "!O:O>=" & _
kleinster_Wert & ")*(" & b & "!O:OLeider funktioniert es nicht. (Fehler 2015, #WERT!)
Ich habe auch mal testweise O:O durch O3:O100 ersetzt, aber kein Erfolg.
Wie kann ich eine solche Auswertung bewerkstelligen?
Gruß Uppe
PS: Ich hoffe, es ist nicht zu umständlich erklärt.