Qrcode-Scanner in Excel

[Martin335]

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 

[schauan]

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 ...?

[Martin335]

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 ?

[schauan]

... In Deiner unteren Tabelle hast Du keinen QRCode vorgesehen...

[Martin335]

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

[schauan]

Hallöchen,

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?

[Martin335]

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.

[schauan]

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

[mumpel]

Wie kommt der QR-Code in die Datei?

[Martin335]

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.