HERBERS Excel-Forum - die Dialoge

Thema: Tage an Monat anpassen

Home
Die Anzahl der Tage eines Monats soll der Monatsauswahl in der ComboBox angepaßt werden. Tage an Monat anpassen
  • Prozedur: cboMonate_Change
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Tage an Monat anpassen
  • Ablaufbeschreibung:
    • Variablendeklaration
    • ComboBox leeren
    • Schleife vom 1. bis zum letzten Tag des Monats
    • Tag eintragen
    • Letzten Eintrag der ComboBox auswählen
  • Code:

    
    Private Sub cboMonate_Change()
       Dim intCounter As Integer
       cboTage.Clear
       For intCounter = 1 To Day( _
          DateSerial(Year(Date), cboMonate.ListIndex + 2, 0))
          cboTage.AddItem intCounter
       Next intCounter
       cboTage.ListIndex = cboTage.ListCount - 1
    End Sub