HERBERS Excel-Forum - die Dialoge

Thema: Auswahl in Zelle eintragen

Home
Ein in einer ComboBox ausgewählter Wert soll in die aktive Zelle eingetragen werden. Auswahl in Zelle eintragen
  • Prozedur: UserForm_Initialize
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: ComboBox mit Wochentagen belegen
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Schleife über 7 Tage bilden
    • ComboBox das als Wochentag formatierte Datum hinzufügen
    • Ersten Eintrag auswählen
  • Code:

    
    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
    
  • Prozedur: cboTag_Change
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: ComboBox-Wert in Zelle eintragen
  • Ablaufbeschreibung:
    • Variablendeklaration
    • ComboBox-Wert in Zelle eintragen
  • Code:

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