UserForm, Combobox, Liste andere Spalte
12.12.2022 10:37:05
Jan
ich habe hier zwar schon viel Hilfe gefunden, aber dies ist meine erste Frage weil ich kein passendes Ergebnis finden kann. Vielleicht geht das was ich möchte auch garnicht, aber das kann ich mir eigentlich nicht vorstellen.
Folgendes Problem - Ich habe eine Liste mit Auszubildenden (ID, Name, Vorname etc.. )
In einem UserForm wird diese Liste durch Vorauswahl von Kategorien in Comboboxen gefiltert.
In einer weiteren Combobox soll als Liste dann der Übriggebliebene Bereich angezeigt werden -> mit Nachnamen!
Eindeutige Listenergebnisse bekomme ich nur über die ID weil es Nachnamen mehrfach gibt. Bis dahin funktioniert das auch Prima, allerdings werden natürlich nur die ID-Nummern in der Comboboxliste angezeigt.
Was ich gern hätte, ist dass die angezeigte ID in der Combobox durch den passenden Namen ersetzt wird nach dem Motto -> Ich wähle die ID 15 aus, schaue in der Spalte "Namen" in die selbe Zeile und zeige in der Combobox den Namen an
Der Code bis dahin:
Private Sub ComboBox4_DropButtonClick()
Dim Gruppe As String
Dim Jahrgang As String
Dim tbl As ListObject
Dim rng1 As Range
Dim ID As Range
'Filterkriterien
Gruppe = ComboBoxGruppe.Value
Jahrgang = ComboBoxJahrgang.Value
'Tabelle einlesen
Set tbl = t02_Azubiliste.ListObjects("tbl_Azubiliste")
'Autofilter lösen und neu setzen
tbl.AutoFilter.ShowAllData
tbl.Range.AutoFilter 2, Jahrgang
tbl.Range.AutoFilter 3, Gruppe
'Combobox füllen
Set rng1 = Range("tbl_Azubiliste[ID]").SpecialCells(xlCellTypeVisible)
ComboBox4.List = rng1.Value