VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Eintrag eines UserForm-ComboBox-Wertes in aktive Zelle

Gruppe

Dialog

Bereich

ComboBox

Thema

Eintrag eines UserForm-ComboBox-Wertes in aktive Zelle

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

    


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