Liebe Forenbesucher,

ich hoffe jemand ist unter euch, der einer Programmierungsanfängerin helfen kann.

Folgende Aufgabenstellung. Mittels Barcodescanner sollen Aufragsnummer, Seriennummer und Kartonnummer in Excel (in drei Spalten) gescannt werden.

Dies soll mit einer schönen Eingabemaske geschehen. Ich habe jetzt schon ewig lange rumgegoogelt und habe mir einen Code gebastelt. Ich habe es geschafft mir eine Userform zu bauen mit den drei benötigen Eingabefeldern. Jetzt hakt es aber. Wenn ich die Userform über einen Button aufrufe, poppt sie auf und man kann Daten eintragen oder auch scannen. Nur wie schaffe ich es, dass die Daten auch in das Tabellenblatt eingetragen werden? Schön wären ja zwei Buttons wie "Übernehmen" und "löschen".

Wenn dies geschafft ist, gibt es noch die feinheit, dass manche Aufträge auch mehrere Seriennummern haben. Es handelt sich bei dem Produkt um eine Software, die auch mehrmals pro Karton verkauft wird. Geht es, dass dann nicht immer wieder Auftrags und Kartonnummer gescannt werden müssen, sondern, dass diese felder aufgefüllt werden mit den Daten aus dem aktuellen Auftrag. Außerdem soll eine Fehlermeldung kommen, wenn eine SN versehentlich zwei mal gescannt wird. Dies hatte ich schon ohne VBA über eine Gültigkeitsprüfung geschafft. Läuft dies auch weiterhin oder ist es besser dies in den Code einzubauen?

Ihr seht, ich stehe echt auf dem Schlauch. :-((

Würde mich sehr freuen, wenn jemand ein Ohr dafür hat. Danke schon mal

MFG

Tine

Hier mein Code:

Private Sub uebernehmen_Click()
  Dim letzteZeile As Integer
 
  Range("A65536").End(xlUp).Select
  letzteZeile = ActiveCell.Row + 1

  ThisWorkbook.Sheets("Seriennummernverwaltung").Cells(letzteZeile, 1) = Auftragsnummer.Value
  ThisWorkbook.Sheets("Seriennummernverwaltung").Cells(letzteZeile, 2) = Seriennummer.Value
  ThisWorkbook.Sheets("Seriennumme").Cells(letzteZeile, 3) = Kartonnummer.Value
 

  UserForm1.Hide
End Sub

Private Sub abbrechen_Click()

  UserForm1.Hide
End Sub