ich versuche mich gerade an etwas VBA. Ich würde gerne in einer Textbox (TextBox_AN) eine Artikelnummer eingeben und in zwei weiteren Lieferant (TextBox_Sup) und Artikelbeschreibung (TextBox_Besch) sehen. Wie geht das? Informationen stehen in einer Tabelle (StockProfile)
Das ist mein Ansatz, schneit nur leider falsch zu sein.
Private Sub TextBox_AN_Change()
Dim intLZ As Long
Dim intZ As Long
With Sheets("StockProfile")
intLZ = .Cells(Rows.Count, 1).End(xlUp).Row
intZ = .Range("A2:A" & intLZ).Find(what:=Me.TextBox_AN.Value, LookIn:=xlValues, lookat:= _
_
_
xlWhole).Row
Me.TextBox_Sup.Value = .Cells(intZ, "B").Value
Me.TextBox_Besch.Value = .Cells(intZ, "C").Value
End With
End Sub
Viele Grüße,