meine UserForm beinhaltet verschiedenen ComboBoxen. In den ComboBoxen kann man endweder etwas auswählen oder etwas eingeben, was dann beim Verlassen dieser automatisch in die Auswahlliste für zukünftige Aufrufe gespeichert wird.
Jetzt möchte ich, dass nach einer Texteingabe (also nicht Auswahl) in ComboBox3 nicht nur diese Eingabe gespeichert wird, sondern in die Spalte daneben auch eine Ordnungszahl. Diese wiederum ist abhängig von der Auswahl in ComboBox2.
Ablaufbeispiel:
Ich wähle in ComboBox2 einen uniquen Eintrag aus. Die vorgegeben Auswahliste steht in Spalte C. In der Spalte B daneben stehen unique Ordnungszahlen.
Wenn ich Anschließend etwas neues in ComboBox3 (Auswahlliste steht in Spalte E) eintrage, wird die Auswahlliste in Spalte E automatisch um diesen Eintrag verlängert. In Spalte D direkt daneben soll jetzt aber auch die Ordnungszahl aus Spalte A der ComboBox2-Auswahl gespeichert werden.
Das habe ich bis jetzt dafür zusammen:
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 GoSub fuellen
Next
With Sheets("Vorgaben")
.Cells(1000, 3).End(xlUp).Offset(1, 0) = ComboBox2.Text
ComboBox2.AddItem ComboBox2.Value
End With
Exit Sub
fuellen:
ComboBox3.Clear
ComboBox4.Clear
Dim iZeile As Long
With Worksheets("Vorgaben")
For iZeile = 2 To .Range("D65536").End(xlUp).Row
If .Cells(iZeile, 4) = .Cells(ComboBox2.ListIndex + 2, 2) Then
ComboBox3.AddItem .Cells(iZeile, 5)
ComboBox4.AddItem .Cells(iZeile, 7)
End If
Next iZeile
End With
Exit Sub
Return
End Sub
Private Sub ComboBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim X As Long
For X = 0 To ComboBox3.ListCount - 1
If ComboBox3.Value = ComboBox3.List(X) Then _
Exit Sub
Next
With Sheets("Vorgaben")
.Cells(1000, 5).End(xlUp).Offset(1, 0) = ComboBox3.Text
ComboBox3.AddItem ComboBox3.Value
End With
End Sub
Wie bekomme ich es hin, dass mit einem neuen Eintrag in ComboBox3 nicht nur dieser in Spalte D gespeichert wird, sondern auch die Ordnungsnummer aus Spalte A in Spalte C? Für Vorschläge wäre ich sehr dankbar.
Schöne Grüße
Holger