Microsoft Excel

Herbers Excel/VBA-Archiv

2-dimensionale Combobox

Betrifft: 2-dimensionale Combobox von: Wolle
Geschrieben am: 17.09.2004 18:55:51

Hallo,

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
  


Betrifft: AW: 2-dimensionale Combobox von: andre
Geschrieben am: 21.09.2004 19:29:45

Hallo Wolle,
habe den code nicht analysiert, erst mal nur der Tip - wie sind denn die Zellen mit den Postleitzahlen formatiert bzw. wie stehen die da drin? Geht es generell nicht oder nur bei denen mit 0 am Anfang?


  


Betrifft: AW: 2-dimensionale Combobox von: Wolle
Geschrieben am: 21.09.2004 22:04:05

Hallo Andre,

es geht anscheinend generell nicht. Habe die Zellen als Zahlen und auch als Text formatiert, half beides nicht. Ich bin mittlerweile der Ansicht, Excel kann das nicht mit Zahlen, sondern nur mit Text.

MfG
Wolle


 

Beiträge aus den Excel-Beispielen zum Thema "2-dimensionale Combobox"