ComboBox2 in Abhängigkeit von ComboBox1 befüllen

[RPP63]

Ralf, wie würdest du es besser machen?

Ich würde zunächst eine "intelligente" Tabelle erstellen, die ich DB genannt habe:

	A	B
1	Stadt	MA
2	Berlin	Karsten
3	Berlin	Olaf
4	Berlin	Ines
5	Leipzig	Tanja
6	Leipzig	Sabine
7	Leipzig	Rene
8	Hannover	Erwin
9	Hannover	Max
10	Hannover	Ilka
11	Erfurt	Klaus
12	Erfurt	Eva
13	Erfurt	Heidi

Dann bediene ich mich der Mittel eines aktuellen Excel:


Dialog UserForm1

Option Explicit 

Private Sub UserForm_Initialize() 
ComboBox_Ort.List = WorksheetFunction.Unique( _
  Tabelle1.ListObjects("DB").ListColumns(1).DataBodyRange) 
End Sub 

Private Sub ComboBox_Ort_Change() 
With Tabelle1.ListObjects("DB") 
  .Range.AutoFilter 1, ComboBox_Ort.Text 
  ComboBox_Name.List = .ListColumns(2).DataBodyRange.SpecialCells(xlCellTypeVisible).Value 
End With 
End Sub 

Falls Dein Excel noch nicht über EINDEUTIG() verfügt, finden sich andere Lösungen.
Deine Datei überarbeitet zurück.

Gruß Ralf

[CrazyCat]

@Ralf
Der Dateianhang von dir funktioniert wie er soll.

Füge ich den betreffenden Code angepasst bei mir im (Komplett-) Formular ein, dann kommt "Laufzeitfehler 9 Index außerhalb des gültigen Bereiches".

Was habe ich geändert?

Code:

Private Sub UserForm_Initialize()

Habe ich weggelassen, da dies schon vorhanden ist.

[CrazyCat]

@Ralf
ALLES FUNKTIONIERT  :18:

Vielen Dank!

Der Fehler lag bei mir!
Die Tabelle in welcher lag, war bei mir Tabelle 5 und nicht Tabelle 1  :22: