Listbox mit 2 Spalten
16.03.2008 11:13:44
Jean-Pierre
in den letzten Tage erhielt ich hier ein Super-Lösung zu meinem damaligen Problem. Diese Lösung deutet aber auf eine Verbesserung deren Realisierung zu meinem nächsten Problem wird.
In einer Userform verwende ich u.A.:
eine Textbox txtPLZ in welcher die PLZs erfasst werden
eine Textbox txtOrt in welcher die entsprechenden Orte eingetragen werden sollen
eine Listbox lbxOrt in welcher nach und nach die Orte mit der Eingabe der PLZ angezeigt werden
eine Tabelle "PLZ" mit den PLZs in Spalte "A" und den Orten in Spalte "B"
Private Sub txtPLZ_Change()
Dim vnt1, vnt2(), n As Long, i As Long
vnt1 = Sheets("PLZ").Range("A1").CurrentRegion
ReDim vnt2(1 To 1, 1 To UBound(vnt1))
For i = 2 To UBound(vnt1)
If Left(vnt1(i, 1), Len(txtPLZ)) = txtPLZ Then
n = n + 1
vnt2(1, n) = vnt1(i, 2)
End If
Next i
If n > 0 Then
ReDim Preserve vnt2(1 To 1, 1 To n)
lbxOrt.List = WorksheetFunction.Transpose(vnt2)
Else
lbxOrt.Clear
End If
End Sub
Wie muss ich den Code ändern, dass die Listbox lbxOrt zwei Spalten mit PLZ und ORT anzeigt (eventuell auch mit den Überschriften PLZ und ORT aus Zeile 1 in der Tabelle PLZ) und das gewünschte Datenpaar mit Doppelclick in txtPLZ und txtOrt einträgt?
Herzlichen Dank im Voraus
Jrean-Pierre