Clever-Excel-Forum

(16.02.2020, 10:01)CrazyCat schrieb: [ -> ]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

@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?

Habe ich weggelassen, da dies schon vorhanden ist.

@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: