Change-Ereignis bei generierten ComboBoxes
11.03.2025 10:30:20
AndreasH86
ich erzeuge per Excel-Makro je nach Listenlänge eine Anzahl von ComboBoxes in einer UserForm (es handelt sich um einen Auszug der relevanten Passage):
Private Sub UserForm_Initialize()
Dim Box, Label As Control
Dim endRowA As Long
Dim arr As Variant
endRowA = Sheets("Array").Cells(Rows.Count, 1).End(xlUp).Row
ReDim arr(1 To endRowA)
If Sprache = "DE" Then
For z = 1 To endRowA
arr(z) = Sheets("Array").Cells(z, 1).Value
Next z
End If
a = 0
For z = 1 To endRowA
Set Label = UserForm2.Controls.Add("Forms.Label.1", "Label" & z, True)
Label.Left = 25
Label.Top = 36 + a
Label.Width = 96
Label.Height = 15.75
Label.Caption = z & " - "
Set Box = UserForm2.Controls.Add("Forms.ComboBox.1", "ComboBox" & z, True)
Box.Left = 48
Box.Top = 36 + a
Box.Width = 186
Box.Height = 15.75
Box.Object.List = arr
a = a + 24
Next z
CommandButton1.Left = 78
CommandButton1.Top = a + 60
UserForm2.Height = z * 24 + 36 + 60 + 20Nun möchte ich für die ComboBoxes ein Change-Ereignis abgreifen mit dem Ziel, dass die bereits ausgewählten Einträge in den ComboBoxen in den folgenden CBO nicht mehr auswählen kann - also das Array nach jeder Auswahl verändere.
Soweit ich mich bisher belesen habe, geht das nur mit einem Klassenmodul, womit ich bisher noch nicht in Berührung kam.
Wie erstelle ich ein solches Change-Ereignis?
Viele Grüße
Andreas
Anzeige