|
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:
|
Timestmap |
Maschine |
Nummer |
Entscheid |
|
8.12.20 19:27 |
Anlage 1 |
12345 |
NOK |
|
8.12.20 19:00 |
Anlage 1 |
12345 |
OK |
|
8.12.20 18:58 |
Anlage 1 |
12345 |
OK |
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)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | 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
On Error Resume Next
Coll_OK.Item (CStr(Range("C" & Zle)))
bool = CBool(Err.Number = 5)
On Error GoTo 0
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
Set Coll_OK = Nothing
End Sub
|
Hat dazu jemand eine Idee?
Und die zweite Frage: Ich will mich mit der Thematik Allgemein mehr auseinandersetzten. Welche Literatur / Links könnt ihr empfehlen?
Excel kenne ich mich "gut" aus, ich kann andere Programmiersprachen. Aber hier fehlt mir einfach eine Übersicht der Objekte usw.
Die Logik wie es gemacht werden "sollte" habe ich immer grob im Kopf...
Vielen Dank für eure Unterstüzung.
|