Hallo zusammen
Mein Problem ist wahrscheinlich ganz einfach ich finde aber keine Lösung vielleicht könnt ihr mir helfen.
Ich habe da ein Problem mit dem einlesen von Datumswerten und Eurobeträgen in eine Kombobox. Datumswert in der ersten Spalte Eurowerte in der zweiten Spalte.
Ich möchte nun mit einen zweidimensionalen Array die Kombobox füllen. Mit den Datum das getht nur die Eurobeträge aus Tabelle1 Spalte 1 das gebt nicht .
Das Formular heist Userform die Kombobox cboArray
Mein bisheriger Code:
Private Sub UserForm_Initialize()
Dim iCounter As Double
Dim 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) = ActiveSheets.Cells(1, 1).Value
Next iCounter
cboArray.List = arr
cboArray.ListIndex = 0
End Sub
|