2-dimensionale Combobox
17.09.2004 18:55:51
Wolle
ich habe eine Tabelle, in der verschiedene Werte stehen(Spalten A und B). Diese Werte werden in Comboboxen eingelesen mit folgenden Code. In Combobox1 (2-dimensional) kann man den Namen auswählen. Combobox2 zeigt dann den passenden Vornamen dazu an. Bei Eingabe des ersten Buchstaben, liefert Excel sofort den ersten Namen, der mit diesem Buchstaben anfängt.
Sub Daten_einlesen()
'Name einlesen
Dim arr
Dim Ziel
Ziel = "b" & Workbooks("AdressenDB.xls").Worksheets("DB").Cells(Rows.Count, 2).End(xlUp).Row
arr = Workbooks("AdressenDB.xls").Worksheets("DB").Range("a2", Ziel)
With UserForm1.ComboBox1
.ColumnCount = 2
.ColumnWidths = "5cm;2cm"
.ListWidth = 250
.List = arr
End With
UserForm1.ComboBox1.ListIndex = 0
Run "Daten_abfragen"
End Sub
Makro "Daten_abfragen" wird über Combobox1_change aufgerufen:
Sub Daten_abfragen()
Dim z1
z1 = UserForm1.ComboBox1.ListIndex + 2
If UserForm1.ComboBox1.ListIndex > -1 Then
UserForm1.ComboBox2.Text = Workbooks("AdressenDB.xls").Worksheets("DB").Cells(z1, 2).Value 'Ort
End If
End Sub
Dieser Code funktioniert, solange in Spalte A bzw. Combobox1 Text steht.
Stehen nun in SpalteA Zahlen (Bsp. PLZ) liefert Combobox2 nur den passenden Eintrag, wenn man die PLZ aus der Liste auswählt. Bei Eingabe einer Zahl passiert nichts.
Kann mir jemand weiterhelfen???
Gruß
Wolle