VBA Textbox als Sucheingabe über Combobox werte
05.07.2019 20:35:53
Waldemar
ich bin schon etwas länger auf der Suche nach einer möglichkeit über VBA etwas in eine Textbox einzugeben und über eine Combobox ausgegben zu lassen. Dies macht er auch aber leider nur einen wert aus meiner Tabelle .
Z.b Textbox = Meyer als such kriterium
Combobox = Max
Was ich suche ist halt
Textbox = Meyer
Combobox = Max
Bernt
Paul
Peter
Private Sub TextArtikelnummer_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As _
Integer)
Dim SN
Dim c As Range
SN = TextMuster.Text
Set c = Sheets("Muster12").Columns(1).Find(SN)
If Not c Is Nothing Then
Me.Text.Text = c.Offset(0, 1).Text
Me.TextBox7.Text = c.Offset(0, 4).Text
Me.TextBox8.Text = c.Offset(0, 7).Text
Me.ComboBox1.Text = c.Offset(0, 8).Text
End If
End Sub
Danke schon mal