dank Sepp klappt das mit dem unten stehenden Code super.
Wie kann ich diesen noch erweitern damit bei mehreren Treffern aus Textbox5
in Textbox6 automatisch eine Dropdownliste erscheint und ich darin den entsprechenden Treffer auswähle und dieser dann in Textbox6 geschrieben wird?
Private Sub TextBox5_AfterUpdate()
Dim varRet As Variant
With Worksheets("Orte")
varRet = Application.Match(TextBox5, .Range("B:B"), 0)
If IsNumeric(varRet) Then
TextBox6 = .Cells(varRet, 1)
End If
End With
End Sub
bitte um Hilfe
Danke schon mal im Voraus