Gruppe
Dialog
Problem
Wie kann ich die Werte einer Spalte in eine UserForm-ComboBox einlesen und unmittelbar nach Auswahl in eine Zelle ausgeben?
ClassModule: frmComboDemo
Private Sub UserForm_Initialize()
Dim rng As Range
For Each rng In Range("A1:A5").Cells
cboListe.List = Range("A1").CurrentRegion.Columns(1).Value
Next rng
cboListe.ListIndex = 0
End Sub
Private Sub cboListe_Change()
Cells(1, 2) = cboListe.Value
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
StandardModule: basMain
Sub CallForm()
frmComboDemo.Show
End Sub