ich habe folgendes Problem.
Ich habe eine userform erstellt in der ich 13 Comboboxen habe, die jeweils mit mehreren Auwahlmöglichkeiten zur Verfügung stehen.
Nun ruft mein Programm die Userform mit
Userform2.show
auf. Diese userform wird bei auffruf durch
Private Sub UserForm_Initialize()
' Die Daten werden im Code Zeilenweise eingetragen
Dim i As Integer
Dim CB As Object
i = 0
For Each CB In UserForm2.Controls
If TypeName(CB) = "ComboBox" Then
If CB.Left = 15 Then
With CB
.AddItem "Bericht"
.AddItem "BKnoten"
.AddItem "Monat"
.AddItem "Monat_ohne_Null"
.AddItem "Jahr"
.AddItem "Abteilung"
.AddItem "Dateiart"
.AddItem ""
.ListIndex = i 'Vorbelegung "Schmitz" bei Formularstart
End With
i = i + 1
end if
end if
next CB
mit Werten befüllt und mit "ListeIndex =1" schon auf einen Vordefinierten Wert gelegt. Jetzt hat der User die Möglichkeit eine Auswahlmögluckeiten zu wählen. Wie kann ich diese Auswahl nun wieder zurück an meine aufrufendes Programm schicken und auslesen lassen?
Habe das ganze schon mit
Userform2.ComboBox1.Value
versucht. jedoch nimmt mein Programm immer den Wert, der durch Linstindex schon gesetzt war.
Was kann ich also ändern, damit nicht der vorausgewählte sondern der vom User ausgewählte genommen wird?
Viele Grüße
Ela