ich lasse mir in eine ComboBox viele Artikelnummern reinladen. Jetzt würde ich gerne die dazugehörige Beschreibung und den Lieferanten in Lief_txb und AB_txb (Textfeld für Lieferant und Artikelbeschreibung) einfügen.
Wie geht das? - Ein Fehler tritt immer in der fetten Zeile auf.
Mein Ansatz:
Private Sub AN_cmb_Change()
'Artikelbeschreibung & Lieferant hinzufügen
'intZ und intLZ werden als Integer(Zahl) definiert
Dim intZ As Integer
Dim intLZ As Integer
If Me.AN_cmb.Value "" Then
Me.AB_txb.Enabled = True
Me.Lief_txb.Enabled = True
With Sheets("Stock")
intLZ = .Cells(Rows.Count, 2).End(xlUp).Row
intZ = .Range("A2:A100000" & intLZ).Find(what:=Me.AN_cmb.Value, LookIn:=xlValues, _
lookat:=xlWhole).Row
Me.AB_txb.Value = .Cells(intLZ, "C").Value
Me.Lief_txb.Value = .Cells(intLZ, "B").Value
End With
Else
Me.AB_txb.Enabled = False
Me.Lief_txb.Enabled = False
End If
Sheets("imp").Select
Range("B2").Value = Me.AN_cmb.Value
Me.Label30.Caption = Range("B3").Value 'Preis p. Stück
Me.Label31.Caption = Range("B4").Value 'Menge
Me.Label32.Caption = Range("B5").Value 'Lagerort
End Sub
Danke und Grüße