ich habe ein Problem und mir fehlt der Lösungsansatz. Ich erzeuge in einer UserForm dynamisch ComboBoxen:
For i = 1 to j
'Erzeuge ComboBoxen
Set aComboBox(i) = New clsComboBox
Set aComboBox(i).objComboBox = Me.Controls.Add("Forms.ComboBox.1", "Eingabe" & i, True)
With aComboBox(i).objComboBox
AbstandLabel = 12 + (25 * (i - 1))
.Left = 120
.Top = AbstandLabel
.Width = 96
.Height = 18
.BackColor = &H80000005
End With
'Inhalt der ComboBoxen
aComboBox(i).objComboBox.AddItem ("Deutschland")
aComboBox(i).objComboBox.AddItem ("Frankreich")
aComboBox(i).objComboBox.AddItem ("USA")
Next i
Nun möchte ich diese Werte in Variablen speichern, um sie später erneut zu verweden.
Im Klassenmodul steht folgendes:
Option Explicit
Public WithEvents objComboBox As MSForms.ComboBox
Private Sub objComboBox_Change()
'MsgBox objComboBox.Name & ": Changeereignis ausgelöst!"
Land = objComboBox.Value
MsgBox "Ausgewähltes Land: " & Land
End Sub
Die Variable Land habe ich als global definiert.Leider wird nun immer nur der letzte Wert gespeichert.
Ich hoffe es kann mir da jemand weiterhelfen, wie ich den Wert jeder so erzeugten ComboBox (max. 10) in einer variablen speichern kann.
Grüße
Michaeö