Change Ereignis bei dynamischen ComboBox
05.04.2019 13:44:33
Sebastian
ich verzweifle gerade an folgendem Problem:
Ich erstelle dynamisch eine Userform. Diese wird mit einer variablen Anzahl (je nachdem wieviele Einträge in der Tabelle "Mitarbeiter") Textfelder welche mit dem Namen des Mitarbeiters gefüllt wird.
Daneben werden jeweils 2 Comboboxen erstellt. In der ersten Combobox soll aus einer Liste aus Einträgen im Sheet "Fahrzeuge" ausgewählt werden.
Die zweite Combobox soll dann, je nachdem welches Fahrzeug in der ersten Combobox gewählt wird, die freien Tage (weitere Spalten im Farzeuge Sheet) des jeweiligen Fahrzeugs angezeigt werden.
Das dynamische erstellen funktioniert anhand einer einfachen For-Schleife gut. Die Auswahl in den ersten ComboBoxen ist auch Problemlos, diese werden zuerst mit einer Leerzeile und dann mit den Fahrzeugen aus der Liste befüllt.
' Für jeden MA ein Fzg Feld erstellen
Set ComboBox1 = Me.Controls.Add("Forms.ComboBox.1")
'Positionen setzten
ComboBox1.Left = 84
ComboBox1.Top = 150 + p2
ComboBox1.Width = 72
ComboBox1.Height = 16
'Schrift setzen
ComboBox1.Font.Bold = False
ComboBox1.Font.Size = 8
ComboBox1.Font.Name = "Tahoma"
ComboBox1.ForeColor = vbBlack
'Liste mit auszuwählenden Fzg füllen
letzte = Sheets("Fahrzeuge").Range("A" & Rows.Count).End(xlUp).Row
'Erste Auswahl leer für "Kein Fahrzeug"
For j = 1 To letzte
If j = 1 Then
ComboBox1.AddItem ""
Else
ComboBox1.AddItem Sheets("Fahrzeuge").Cells(j, 1)
End If
Next j
'Name ändern
ComboBox1.Name = "Fzgname" & i - 1
Da die ComboBoxen dynamisch erstellt werden, weiß ich nicht wie ich hier ein Change Ereignis steuern kann. In der For-Schleife werden die Boxen in "Fzgname"&i umgenannt.
Erstelle ich jetzt ein Sub Fzgname1_change() passiert einfach nichts.
Wie kann ich die jeweils zweite Combobox mit den Daten zur jeweiligen Auswahl der ersten Combobox füllen?
Kann mir hier vll jemand helfen?