Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eintrag eines UserForm-ComboBox-Wertes in aktive Zelle

Gruppe

ComboBox

Problem

Ein in einer UserForm-ComboBox ausgewählter Wert soll in die aktive Zelle eingetragen werden.

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

StandardModule: basMain

Sub CallForm()
   frmCboToCell.Show
End Sub

ClassModule: frmCboToCell

Private Sub cboTag_Change()
   ActiveCell.Value = cboTag.Value
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim intDay As Integer
   For intDay = 1 To 7
      cboTag.AddItem Format(Day(Date) + intDay + 0, "dddd")
   Next intDay
   cboTag.ListIndex = 0
End Sub