ich habe folgendes Problem.
Habe mir eine Datei erstellt wo ich die Wareneingänge eintrage.
Alles gut was noch dazu soll ist wenn, ich Entnahme Scannen (Commandbutton) sich ein Feld öffnet wo der Mitarbeiter den Artikel abscannt und automatisch abgezogen wird sobald dieser vorhanden ist. Es soll ohne Bestätigung ein Artikel nach den anderen gescannt werden. Wenn der mitarbeiter fertig ist schließt er selbst das Fenster.
Artikelname A4
Artikelnummer B4
Eingang C4
Ausgang D4
Bestand E4
Bearbeiter F4 Wird aus K4 abwärts erfasst
Ich würde die Datei hochladen weiß aber leider nicht wie das hier funktioniert....
Private Sub CommandButton1_Click()
'Werte laut Artikel Nummer eintragen'
' ÜberprüfungWochentag
Select Case Weekday(Date)
Case Is = 1 'Sonntag'
GoTo Ende
End Select
'Sonntagsarbeit verbieten, da keine Spalte für Sonntag vorhanden'
'Überprüfung ob Artikelnr - name eingetragen sind'
If TextBox4.Value = "" _
Or TextBox5.Value = "" Then
MsgBox "Fehlende Daten ergänzen."
GoTo Ende
End If
'Überprüfung ob TextBox leer'
Select Case TextBox1
Case Is = ""
TextBox1.Value = 0
End Select
Select Case TextBox2
Case Is = ""
TextBox2.Value = 0
End Select
Select Case ComboBox3
Case Is = ""
MsgBox "Kein Bearbeiter.", vbOKOnly + vbInformation, "Ungenaue Angaben"
GoTo Ende
End Select
Call Tagesarbeit
Ende:
TextBox1.Value = ""
TextBox2.Value = ""
End Sub
Sub Tagesarbeit()Dim ws As Worksheet
Set ws = Worksheets("Tagesarbeit")
'lZeile = letzte Zeile mit Inhalt'
lzeile = ws.Cells(Rows.Count, 1).End(xlUp).Row
With ws.Range("a4:a" & lzeile)
Set c = .Find(TextBox4.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
If ws.Cells(c.Row, 5) - TextBox2.Text MsgBox "Lagerbestand wäre dann im Minus.", vbOKOnly + vbQuestion, ComboBox3.Value & " das wäre nicht korrekt"
GoTo Ende
End If
ws.Cells(c.Row, 3) = ws.Cells(c.Row, 3) + TextBox1.Text
ws.Cells(c.Row, 4) = ws.Cells(c.Row, 4) + TextBox2.Text
ws.Cells(c.Row, 5) = ws.Cells(c.Row, 5) - TextBox2.Text
ws.Cells(c.Row, 5) = ws.Cells(c.Row, 5) + TextBox1.Text
ws.Cells(c.Row, 6) = ComboBox3.Value
TextBox3.Value = ws.Cells(c.Row, 5)
Label3 = "Wareneingang heute " & ws.Cells(c.Row, 3)
Label4 = "Warenausgang heute " & ws.Cells(c.Row, 4)
Else
ws.Cells(lzeile + 1, 1) = TextBox4.Text
ws.Cells(lzeile + 1, 2) = TextBox5.Text
ws.Cells(lzeile + 1, 3) = TextBox1.Text
ws.Cells(lzeile + 1, 4) = TextBox2.Text
ws.Cells(lzeile + 1, 6) = ComboBox3.Text
ws.Cells(lzeile + 1, 5) = ws.Cells(lzeile + 1, 3) - ws.Cells(lzeile + 1, 4)
TextBox3.Value = ws.Cells(lzeile + 1, 3) - ws.Cells(lzeile + 1, 4)
MsgBox "Artikel Name/Nummer wurden angelegt.", vbOKOnly + vbInformation, "Erweiterung des Lagerbestandes"
Call ListBoxAktualisieren
End If
TextBox1.Value = ""
TextBox2.Value = ""
End With
Ende:
End Sub
Das ist der Code zur Manuellen Einlagerung und Entnahme