Eintragsabhängige Auswahlliste in ComboBox
Holger
bei meiner User_Form möchte ich die Auswahllisten der ComboBoxen 3 (Gesprächspartner) und 4 (Telefonnummer) in Abhängigkeit von der Auswahl in der vorrangegangen ComboBox Nr. 2 (Handelspartner) machen. Das ganze soll über "Ordnungsnummern" gesteuert werden.
Bedingungen:
1. Wenn ein Handelspartner ausgewählt wird, soll auch nur eine Liste mit den passenden Gesprächspartnern und deren Telefonnummern zur Auswahl stehen.
Beispiel:
Wenn Handelspartner = Bank 1 (Ordnungsnummer in Spalte B ist die "1")
dann Gesprächspartner = alle Einträge aus Spalte E neben der Ordnungsnummer "1" in
Spalte D werden zur Auswahl gestellt.
und Telefonnummer = alle Einträge aus Spalte G neben der Ordnungsnummer "1" in
Spalte F werden zur Auswahl gestellt.
2. Wird ein neuer Handelspartner eingegeben, dann soll keine Auswahl bei Gesprächspartner und Telefonnummer angezeigt werden. Die neue Bank soll eine neue "Ordnungsnummer" bekommen.
Beispiel:
Wenn Handelspartner = Bank 4 (Bank ist noch nicht vorhanden und wird eingetragen. Die
"Ordnungsnummer" für diesen Handelspartner in Spalte B ist die "4")
dann Gesprächspartner = Liste ist leer, Gesprächspartner muss eingetragen werden und
bekommt automatisch in Spalte D die Ordnungsnummer "4"
und Telefonnummer = Liste ist leer, Telefonnummer muss eingetragen werden und bekommt
automatisch in Spalte F die Ordnungsnummer "4"
3. Neu eingegebenen Gesprächpartner und /oder Telefonnummern bekommen die "Ordnungsnummer" der Bank, die bei Handelspartner Ausgewählt oder neu eingetragen wurde.
Beispiel:
Wenn Handelspartner = Bank 2 (Ordnungsnummer in Spalte B ist die "2")
dann Gesprächspartner = alle Einträge aus Spalte E neben der Ordnungsnummer "2" in
Spalte D werden zur Auswahl gestellt.
Es wird aber ein neuer Gesprächspartner eingetragen. Dieser muss automatisch in Spalte D
die Ordnungsnummer "2" bekommen.
und Telefonnummer = alle Einträge aus Spalte G neben der Ordnungsnummer "2" in Spalte F
werden zur Auswahl gestellt.
Es wird aber eine neue Telefonnummer eingetragen. Diese muss automatisch in Spalte D
die Ordnungsnummer "2" bekommen.
Das Ganze soll über ComboBox_Exit gesteuert werden und die Auswahlmöglichkeiten bei Gesprächspartner und Telefonnummer sollen abhängig von der Auswahl/ dem Eintrag unter Handelspartner erfolgen.
Meine jetziger Exit-Befehl für die Combo_Box "Handelspartner" lautet:
Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim X As Long
For X = 0 To ComboBox2.ListCount - 1
If ComboBox2.Value = ComboBox2.List(X) Then
With Sheets("Vorgaben")
For Each rng In .Range(.Cells(1000, 5).End(xlUp).Offset(0, 0), .Cells(2, 5))
UserForm1.ComboBox3.AddItem rng
Next
For Each rng In .Range(.Cells(1000, 7).End(xlUp).Offset(0, 0), .Cells(2, 7))
UserForm1.ComboBox4.AddItem rng
Next
End With
Exit Sub
With Sheets("Vorgaben")
.Cells(1000, 2).End(xlUp).Offset(1, 0) = ComboBox2.Text
ComboBox2.AddItem ComboBox2.Value
End With
End If
Next
End Sub
Ich nehme an, dass meine Beschreibung komplizierter als die Lösung ist ;-)
https://www.herber.de/bbs/user/69294.xls
Kann mir jemand helfen?
Gruß
Holger