VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte in UserForm-ComboBox einlesen und ausgeben

Gruppe

Dialog

Bereich

ComboBox

Thema

Werte in UserForm-ComboBox einlesen und ausgeben

Problem

Wie kann ich die Werte einer Spalte in eine UserForm-ComboBox einlesen und unmittelbar nach Auswahl in eine Zelle ausgeben?

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und ComboBox