Thema: Array an ComboBox übergeben

Home

Ein zweidiemensionales Array wird über eine Schleife gefüllt und an die ComboBox übergeben.

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Array an ComboBox übergeben
Ablaufbeschreibung:
- Variablendeklaration
- Den letzten Tag des aktuellen Monats an eine Integer-Variable übergeben
- Array dimensionieren
- Schleife über alle Tage des Monats
- Feld 1 des Datensatzes mit dem Datum belegen
- Feld 2 des datensatzes mit dem Wochentagsnamen belegen
- Array in ComboBox einlesen
- 1. Element der ComboBox auswählen

Code:


Private Sub UserForm_Initialize()
   Dim iCounter As Integer, iCount As Integer
   Dim arr() As String
   iCount = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
   ReDim arr(1 To iCount, 1 To 2)
   For iCounter = 1 To iCount
      arr(iCounter, 1) = Format(DateSerial(Year(Date), _
         Month(Date), iCounter), "dd.mm.yy")
      arr(iCounter, 2) = Format(DateSerial(Year(Date), _
         Month(Date), iCounter), "dddd")
   Next iCounter
   cboArray.List = arr
   cboArray.ListIndex = 0
End Sub