16.02.2020, 17:12
(16.02.2020, 11: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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)