(17.02.2022, 11:07)mumpel schrieb: [ -> ]Oder man sucht in der Ausgangsspalte nach dem Code und schaut, ob er bereits in der Eingangsspalte schon vorhanden ist. Wenn nicht wird er in der Ausgangsspalte eingetragen, sonst in der Eingangsspalte.
Genau von sowas träume ich
Hallöchen,
so könnten z.B. Deine Scandaten übernommen werden.
Code:
Private Sub Ausgabe_Click()
'Variablendeklarationen
Dim iCnt%
'Startzeile
iCnt = 5
'Schleife solange ab F6 was steht und bis Zeile 11
Do While Cells(iCnt, 6) <> "" And iCnt <= 11
'Mit der ersten freien Zeile in der Ausgabetabelle
With Cells(Rows.Count, 1).End(xlUp).Offset(1)
'Datumm Zeit, Gerät, Name eintragen
.Value = Date
.Offset(0, 1).Value = Time
.Offset(0, 2).Value = Cells(iCnt, 6).Value
.Offset(0, 3).Value = Cells(4, 6).Value
'Ende Mit der ersten freien Zeile in der Ausgabetabelle
End With
'Zeilenzaehler hochsetzen
iCnt = iCnt + 1
'Ende Schleife solange ab F6 was steht und bis Zeile 11
Loop
'Scandaten entfernen
Range("E4:F11").Value = ""
End Sub
Was machst Du eigentlich, wenn Hämmer unterschiedliche QR-Codes haben? Oder hast Du jedes Wz nur 1x? Oder hat jeder Hammer den gleichen QR-Code?
Was machst Du eigentlich, wenn Herr und Frau Wilhelm bei Dir arbeiten und eventuell auch der Junior, dem der gleiche Vorname wie dem Vater gegeben wurde?
Was machst Du eigentlich, wenn Müller das Wz von Wilhelm zurückbringt?
Was ...?
Vielen lieben Dank erstmal!!
Ich werde es gleich mal einsetzen und gucken, was geschieht.
Zu deinen Fragen:
Jeder Hammer hat einen eigenen Qrcode.
Sollten mehrere Leute den gleichen Nachnamen haben, werde ich einfach zahlen an den Namen hängen. Bei 100 Mitarbeitern denke ich noch machbar.
Das mit dem zurückbringen durch andere Mitarbeiter sollte ja eigentlich kein Problem sein, da in der Liste unter der Eingabemaske ja nach der qrcodenummer gesucht werden soll und gucken ob das bereits ausgeliehen ist und dann bei zurückgebracht ausfüllen und nicht nach den Namen suchen :)
Aber ich gebe dir recht. Es gibt viele Probleme die auftauchen können/werden. Da muss man halt am Ball bleiben. Frustbewältigung ist ja der Klassiker bei Excel ?
... In Deiner unteren Tabelle hast Du keinen QRCode vorgesehen...
ja dann natürlich den Namen des Gerätes. Der QR Code wurde ja da unten schon umgewandelt.
Hier mal der Status Quo :)
Fuktioniert schon ganz gut muss ich sagen
Hallöchen,
Zitat:ja dann natürlich den Namen des Gerätes.
womit wir wieder beim Thema der unterschiedlichen Hämmer wären ... Wenn der Kollege einen 250er und einen 500er mit nimmt und nur einen wiederbringt, welcher ist das dann?
(17.02.2022, 22:31)schauan schrieb: [ -> ]Hallöchen,
womit wir wieder beim Thema der unterschiedlichen Hämmer wären ... Wenn der Kollege einen 250er und einen 500er mit nimmt und nur einen wiederbringt, welcher ist das dann?
Die Hämmer sind ja durchnummeriert.
Siehe neue Datei, die ich hochgeladen habe.
Habe das schon auf deinen Rat hin geändert.
Also von Gerätegruppe auf konkreten Gerätenamen.
Hallöchen,
hier mal eine Zurück-Variante, die wegen des Schleifenaufbaus gerade bei langen Listen etwas langsam wird ...
Code:
Private Sub Zurück_Click()
'Variablendeklarationen
Dim iCnt1%, iCnt2&
'Startzeilen
iCnt1 = 5: iCnt2 = 17
'Schleife solange ab F6 was steht und bis Zeile 11
Do While Cells(iCnt1, 6) <> "" And iCnt1 <= 11
'Schleife solange in Spale A ab Zeile 17 was steht
Do While Cells(iCnt2, 1) <> ""
'Wenn in Salte E nix steht und in SPalte C das gesuchte Werkzeug, dann
If Cells(iCnt2, 5) = "" And Cells(iCnt2, 3) = Cells(iCnt1, 6) Then
'Rueckgabe eintragen
Cells(iCnt2, 5).Value = Date
Cells(iCnt2, 6).Value = Time
'Ende Wenn in Salte E nix steht und in SPalte C das gesuchte Werkzeug, dann
End If
'Zeilenzaehler hochsetzen
iCnt2 = iCnt2 + 1
'Ende Schleife solange in Spale A ab Zeile 17 was steht
Loop
'Zeilenzaehler hochsetzen
iCnt1 = iCnt1 + 1
'Ende Schleife solange ab F6 was steht und bis Zeile 11
Loop
'Scandaten entfernen
Range("E4:F11").Value = ""
End Sub
Wie kommt der QR-Code in die Datei?
Vielen lieben DANK!!!
Hast mir sehr geholfen!
Klappt 1 A
Garnicht. Der QR-Code wird eingescannt. Es wird nur die im QR-Code enthaltene Nummer übertragen.