in einer Userform habe ich u.A. zwei Textfelder, txtPLZ und txtOrt
Im Feld txtPLZ soll eine Postleitzahl eingegeben, der entsprechende Ort wird in der Tabelle "PLZ" gesucht und in das Textfeld txtOrt eingetragen.
Das klappt schon ganz gut, bis auf den Fall, dass mehrere Orte dieselbe PLZ haben, dann wird nur der erste Treffer in txtOrt eingetragen.
Private Sub txtPLZ_Change()
On Error GoTo ERRORHANDLER
If Len(txtPLZ) 5 Then Exit Sub
Me.txtOrt = WorksheetFunction.VLookup(CDbl(txtPLZ), Worksheets("PLZ").[A:B], 2, 0)
Me.txtOrt.SetFocus
Exit Sub
ERRORHANDLER:
MsgBox "Die Postleitzahl " & vbCr & txtPLZ & vbCr & " existiert in der Datenbank nicht !", _
vbInformation, "Eingabefehler"
Me.txtPLZ = ""
Me.txtOrt = ""
End Sub
Die Lösung mit VLookup scheint nicht der richtige Weg zu sein.
Wie muss ich vorgehen, um bei Mehrfachtreffern alle Orte mit der selben PLZ herausfiltern und zur Auswahl anzeigen kann?
Vielen Dank im Voraus
Jean-Pierre