Hi zusammen,
Ich habe eine Maske in der per Handscanner Artikelnr. etc. eingescannt werden und bei dem Barcode - Abschließen sollen die Daten innerhalb der Maske in eine Andere Mappe gespeichert werden. Mein Problem ist das ich im Netz den Befehl nicht gefunden habe in dem der Code im Hintergrund läuft, sondern nur wenn ein Button geklickt wird, wird es aufgeführt.
Im Folgenden der Code:
Public Sub Makro1()
If Worksheets("Eingabe").Cells(15, "E").Text = "Abschliesen" Then
Dim Herkunft, Warengruppe, Kategorie, extra_Aufbereitung, QL As String, lngLastUP As Long, EAN As Integer
Herkunft = Worksheets("Eingabe").Cells(6, "E").Value
Warengruppe = Worksheets("Eingabe").Cells(9, "E").Value
Label = Worksheets("Eingabe").Cells(11, "E").Value
EAN = Worksheets("Eingabe").Cells(12, "E").Value
Kategorie = Worksheets("Eingabe").Cells(13, "E").Value
extra_Aufbereitung = Worksheets("Eingabe").Cells(14, "E").Value
lngLastUP = Worksheets("Datenbank").Cells(Rows.Count, 2).End(xlUp).Row + 1
Worksheets("Datenbank").Cells(lngLastUP, 1).Value = Label
Worksheets("Datenbank").Cells(lngLastUP, 3).Value = Format(Now, "dd-mm-yyyy")
Worksheets("Datenbank").Cells(lngLastUP, 4).Value = Format(Now, "hh:mm")
Worksheets("Datenbank").Cells(lngLastUP, 5).Value = Kategorie
Worksheets("Datenbank").Cells(lngLastUP, 9).Value = extra_Aufbereitung
Worksheets("Datenbank").Cells(lngLastUP, 10).Value = EAN
Worksheets("Datenbank").Cells(lngLastUP, 13).Value = Herkunft
Worksheets("Datenbank").Cells(lngLastUP, 14).Value = Warengruppe
End If
End Sub
|