Change-Ereignis bei generierten ComboBoxes

Zum Forum Zum Forum Zum Forumthread Zum Forumthread Zum Archivthread Zum Archivthread Registrierung Registrierung Beispieldatei hochladen Beispieldatei hochladen

Forumbeitrag

Excel-Version des Fragestellers:

365 Business

Erfahrungslevel des Fragestellers:

Excel gut - VBA bescheiden

Zwenn

11.03.2025 09:49:09

AW: Change-Ereignis bei generierten ComboBoxes

Hallo Andreas,

ich habe das Aggregieren von Events vor Jahren auf Stackoverflow erklärt. Grundsätzlich kannst Du das Vorgehen auch auf deine Combo-Boxes anwenden.
https://stackoverflow.com/questions/58801868/add-click-method-to-dyn-button-at-vba-not-work/58803508#58803508

Viele Grüße,

Zwenn

Beim Antworter bedanken Als gefällt mir melden Als hervorragend melden

Als Antwort auf diesen Beitrag

AndreasH86

11.03.2025 09:30:20

Change-Ereignis bei generierten ComboBoxes

Hallo,

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 + 20

Nun 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

Folgenachrichten

Zum Forumthread

Antwort auf Beitrag erstellen

Name

Passwort

Email-Adresse

Betreff

Frage noch offen Aktiviere dieses Kontrollkästchen, wenn die Frage/der Beitrag nicht beantwortet wurde und unter Beitragslisten -> Offene Threads erscheinen soll.

Beispieldatei hochladen

fett 

Setzt den Text in b-Tags (Fettschrift)

Dieser Text ist in Fettschrift formatiert

So sieht das dann aus

Dieser Text ist in Fettschrift formatiert

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der hervorzuhebende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

kursiv 

Setzt den Text in i-Tags (Kursivschrift)

Dieser Text ist in Kursivschrift formatiert

So sieht das dann aus

Dieser Text ist in Kursivschrift formatiert

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der kursiv zu setzende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

Formel <pre>

Setzt den Text in pre-Tags

<pre>=FILTER(B2:C11;A2:A11=F1)</pre>

So sieht das dann aus

=FILTER(B2:C11;A2:A11=F1)

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist die Formel zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung der markierten Formel gesetzt.

Neben der optischen Hervorhebung dient die pre-Setzung auch der Verhinderung von HTML-Problemen, die dadurch entstehen, dass in Formeln enthaltene Kleiner-/Größer-Als-Zeichen vom Browser als HTML-Tags missverstanden werden.

Code <pre><code>

Setzt den Text in pre- und code-Tags

<pre><code class="language-vba">
Option Explicit
Sub NaEndlich()
MsgBox "Hallo Welt"
End Sub
</code></pre>

So sieht das dann aus


   Option Explicit
   Sub NaEndlich()
      MsgBox "Hallo Welt"
   End Sub

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist die Formel zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung der markierten Formel gesetzt.

Liste <li>

Setzt den Text in li (Listenpunkte)

<li>Erste Zeile</li>
<li>Zweite Zeile</li>
<li>Dritte Zeile</li>

So sieht das dann aus

Erste Zeile
Zweite Zeile
Dritte Zeile

Erklärung