Werte richtig zuordnen

Hallo Leute
Habe unteren Code,der mir die Werte der Textboxen von der Userform in's Tab.Blatt "Lagerbestand"einfügt.
Nur sollten die Werte richtig nach Artikel Nummer in's Tab.Blatt "Lagerbestand" Spalte B eingetragen werden und von den Werten in Spalte B abgezogen werden.
Also immer minus dem Wert von Spalte B
Die Artikelnummernstehen in Spalte A.
In der UserForm stehen die Art.Nummer in den Textboxen
txt.AbMatNr - txt.PPMatNr - usw.
Könnte mir Bitte dabei jemand weiterhelfen ?
Danke & Gruss, Heinz
Private Sub cmdEintragen_Click() Call DATEN_eintragen Dim iRow% With Sheets("Lagerbestand") iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(iRow, 1).Value = txtAbProd.Value .Cells(iRow, 2).Value = txtPPProd.Value .Cells(iRow, 3).Value = txtBoProd.Value .Cells(iRow, 4).Value = txtSchProd.Value .Cells(iRow, 5).Value = txtPaProd.Value End With End Sub

Lagerbestand

	A	B
2	Mat.Nr. 1216	256 Lfm.
3	Mat.Nr. 112	123 Stk.
4	Mat.Nr. 162	200 Stk.

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Heinz,
nachstehend der geänderte Code für den Commandbutton1 in der Userform2:
Ich habe die Suche in der Lagerliste über "find" geändert. Da gibts die Möglichkeit, dass nochmals geprüft werden kann, ob die Combobox tatsächlich einen korrekten wert enthält.
Wenn der Wert in der Lagerliste gefunden wurde, dann wird die Eingabe in der Textbox1 hinzugezählt bzw. der Wert in der Textbox2 abgezogen.
Eine Prüfung, ob ein Minusbestand entsteht erfolgt nicht, das wäre ggf noch vorzunehmen. Ebenso können derzeit beim Zugang und beim Abgang werte in den Textboxen stehen. Ist das so gewollt ?


Private Sub CommandButton1_Click()
Dim WkSh  As Worksheet
Dim lZ As Long
Dim c As Range
Set WkSh = Worksheets("Lagerbestand")
' a) suchen ob der Wert lt. Combobox in der Tabelle "Lagerbestand" in Spalte A vorhanden ist -> Fehlermeldung ?
'     Der Wert/Materialnr darf in der Lagerliste nur 1 x vorkommen - Dublikate werden nicht gefunden !
If Len(UserForm2.ComboBox1.Value) = 0 Then
MsgBox "Sie haben die Material-Nr. noch nicht erfasst. "
Exit Sub
End If
lZ = WkSh.Cells(Rows.Count, 1).End(xlUp).Row
With WkSh.Range("A2:A" & lZ)
Set c = .Find(UserForm2.ComboBox1.Value, After:=Range("A2"), LookIn:=xlValues, Lookat:=xlPart)
If Not c Is Nothing Then
MsgBox "gefunden wurde: " & c.Value & "  Fundort: " & c.Address
If UserForm2.TextBox1.Value <> "" And _
IsNumeric(UserForm2.TextBox1.Value) Then
WkSh.Cells(c.Row, 2).Value = _
WkSh.Cells(c.Row, 2).Value + CDbl(UserForm2.TextBox1.Value)
TextBox1.Value = ""
ElseIf UserForm2.TextBox2.Value <> "" And _
IsNumeric(UserForm2.TextBox2.Value) Then
WkSh.Cells(c.Row, 2).Value = _
WkSh.Cells(c.Row, 2).Value - CDbl(UserForm2.TextBox2.Value)
TextBox2.Value = ""
Else
MsgBox "Ihre Eingabe für den Zu- bzw. Abgang des Lagerbestandes ist nicht korrekt.", _
48, "   fehlerhafte Eingabe."
End If
Else
MsgBox "Der eingegebene Wert " & ComboBox1.Value & " wurde in der Lagerliste nicht gefunden !"
End If
End With
End Sub

Ich hoffe es klappt auch bei dir.
Viele Grüße
Herby

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte richtig zuordnen

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread