Textbox füllen mittels suche
28.06.2019 07:35:40
jens
ich möchte gerne die Spalte A mit dem Einträgen aus der Combobox vergleichen und dann wenn in der Spalte A der Eintrag gefunden wurden, den Eintrag der gleichen zeile aber Spalte B in eine Textbox schreiben lassen.
Die Einträge der Combobox sind zahlen. in der Spalte 2 stehen nur Texte.
Aber es geht nicht. Es wird nichts eingetragen.
Weis jemand warum?
Sub aa()
Dim Zeile As Long
Dim LR As Integer
LR = Cells(Rows.Count, "A").End(xlUp).Row
For Zeile = 16 To LR
If Cells(Zeile, 1).Value = UserForm1.ComboBox1.Value Then
UserForm1.TextBox2 = Cells(Zeile, 2).Value
End If
Next Zeile
End Sub
Anzeige