Gruppe
Dialog
Problem
Ein zweidiemensionales Array soll über eine Schleife gefüllt und an eine UserForm-ComboBox übergeben werden.
StandardModule: basMain
Sub CallForm()
frmArray.Show
End Sub
ClassModule: frmArray
Private Sub cmdWeiter_Click()
Unload Me
End Sub
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