Abhängige Kombinationsfelder mit Ausgabe

Hallo zusammen,
ich hätte mal eine etwas komplexere Frage.
Wenn ich in
Spalte A: Die Ländernamen stehen habe
Spalte B: Namen der Mitarbeiter der jeweiligen Länder
Spalte C-E: Produkt A, Produkt B und Produkt C
A - B - C (Produkt1) - D(Produkt2) - E(Produkt3)
Deutschland - Peter - gut - mittel - gut
Deutschland - Hans - schlecht - mittel - schlecht
Polen - Robert - mittel - mittel - gut
Unter den Überschriften (Produkt A, Produkt B, Produkt C) steht jeweils der Kenntnisstand des Mitarbeiters. (schlecht, mittel, gut).
Mein Anliegen: Ich würde gerne die 3 abhängige Kombinationsboxen erstellen.
1. Land auswählen
2. Produkt auswählen
3. Kenntnisstand des gewählten Produkts
und anschließend sollen die Namen der Mitarbeiter des gewählten Produkts mit dem gewünschten Kenntnisstand erscheinen.
z.B. Wähle ich in ComboBox1 (Deutschland), dann in ComboBox2 (Produkt2) und den Kenntnisstand (mittel)
Jetzt bräuchte ich eine Listbox oder Textbox, wo die Namen "Hans" und "Peter" erscheinen.
Vielen Dank im Voraus.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Luschi,
Option Explicit
Const C_mstrDatenblatt As String = "Tabelle1"
Dim mobjDic As Object
Dim mlngLast As Long
Dim mlngZ As Long

Private Sub ComboBox1_Enter()
Set mobjDic = CreateObject("Scripting.Dictionary")
For mlngZ = 2 To mlngLast
mobjDic(Worksheets(C_mstrDatenblatt).Cells(mlngZ,1).Value) = 0
Next
Me.ComboBox1.List = mobjDic.keys
Set mobjDic = Nothing
End Sub

Private Sub ComboBox2_Enter()
Set mobjDic =CreateObject("Scripting.Dictionary")
With Worksheets (C_mstrDatenblatt)
For mlngZ = 2 To mlngLast
If.Cells(mlngZ, 1).Value = Me.ComboBox1.Value Then mobjDic(.Cells(mlngZ, 2).Value) = 0
End If
Next
End With
Me.ComboBox2.List = mobjDic.keys
Set mobjDic = Nothing
End Sub

Private Sub ComboBox2_Change()
Dim mlngZ As Variant
Set mlngZ = Sheets("Tabelle1").Range("B2: B...").Find(ComboBox2)
If Nothing Is Nothing Then
TextBox1 = Sheets("Tabelle1").Range("C" & mlngZ.Row)
TextBox2 = Sheets("Tabelle1").Range("D" & mlngZ.Row)
End If
End Sub

Private Sub UserForm_Initialize()
mlngLast = Worksheets(C_mstrDatenblatt).Cells(Rows.Count, 1).End(xlUp).Row
End Sub

---------------
dieser Code funktioniert einwandfrei. Hier wählte ich zunächst das Land aus und dann den Mitarbeiter. Anschließend stand in der Textbox der jeweilige Kenntnisstand, mit dem Produktnamen als Überschrift über der jeweiligen Textbox.
Meine neue Idee wäre, ob es auch möglich ist, über den Kenntnisstand des jeweiligen Produkts eine Liste mit den Namen der Mitarbeiter zu erhalten welche diesen Kenntnisstand besitzen. Bsp: Ich wähle ein Land aus - anschließend das Produkt und mir werden dann die Namen der Mitarbeiter mit dem Kenntnisstand (z.B. "mittel") angezeigt. Logischerweise nur die Mitarbeiter des vorher ausgewählten Landes.
Ich weiß leider echt nicht, wie ich da vorgehen soll.
Vielen Dank.

Beliebteste Forumthreads (12 Monate)

Abhängige Kombinationsfelder mit Ausgabe

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abhängige Kombinationsfelder mit Ausgabe

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread