Hallo zusammen,

es folgt: mein erster Beitrag :)

Ich habe eine Tabelle mit eindeutigen Nummern von Bauteilen. Diese Bauteile werden durch eine Produktionslinie gefahren und an jedem Prozess gebucht. Dazu habe ich einen Meldung (wie wurde der Prozess abgeschlossen) und wann war die Buchung (Uhrzeit). 

Also Meldung kann es OK, NOK, RW geben. Ich würde jetzt gerne herrausbekommen (mit VBA) wie die letzte Meldung war nach timestamp und das über alle Nummern summieren, abhängig von der Anlage.

Als Beispiel eine kleine Tabelle:

Am Ende will ich eine Ausgabe habe die mir folgendes (bei dem Beispiel) wieder gibt:

Warum keine Einträge bei OK? --> Weil es am Ende des Tages (letzter Timestamp) NOK war.

Ich habe mir ein wenig was zusammen gesammelt aus verschiedene Foren.. Hier habe ich ein Beispiel mit einer Collection gefunden. Das beachtet aber leider nicht den Timestmap und würde 1 OK und 1 NOK zählen (Sofern ich die und Verknüpfung anpasse)

Sub counter()

Dim LastRow As Integer
Dim Zle As Integer
Dim Count_OK As Integer
Dim Coll_OK As New Collection
Dim bool As Boolean


Count_OK = 0
LastRow = Range("C65536").End(xlUp).Row
For Zle = 1 To LastRow
    bool = False
    If Range("B" & Zle).Value Like "Anlage 1" _
    And Range("D" & Zle).Value = "OK" _
    Then
        'Dreckige Prüfung ob Teilenummer in Collection vorhanden ist
        On Error Resume Next
        Coll_OK.Item (CStr(Range("C" & Zle)))
        'Falls ein Fehler auftaucht bool = true => nummer ist noch nicht vorhanden
        bool = CBool(Err.Number = 5)
        On Error GoTo 0
         'Nummer in Collection einpflegen und Zähler hochsetzen
        If bool Then Coll_OK.Add Item:=Zle, Key:=CStr(Range("C" & Zle))
    End If
Next
Count_OK = Coll_OK.Count

Debug.Print Count_OK
'Aufräumen
Set Coll_OK = Nothing

End Sub