Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zweidimensionales Array an UserForm-ComboBox übergeben

Gruppe

ComboBox

Problem

Ein zweidiemensionales Array soll über eine Schleife gefüllt und an eine UserForm-ComboBox übergeben werden.

Lösung
Den nachfolgenden Code in die benannten Module einfügen.

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