Combobox mit Datenfeld befüllen
31.08.2018 14:45:04
Mars
möchte eine Combobox mit Daten füllen, die nur in einem bestimmten Zeitraum vorhanden sind. Die Daten sind in Spalte 29.
Dazu erstelle mir ein Datenfeld (0 to 100)
Das Klappt auch ganz gut, nur beim Combobox füllen (mit AddItem) möchte er eine Objektvariable, und das bekomme ich nicht hin.
Bitte um Unterstützung
Sub Statistik_Individuell()
Dim Fa(0 To 100)
Dim datum1, datum2
Set wb_StRe = ThisWorkbook
Set wsDV = wb_StRe.Sheets("DV")
datum1 = CDbl(CDate(uf_StatInd.tbx_dat1))
datum2 = CDbl(CDate(uf_StatInd.tbx_dat2))
Dat_Anz = 0
Set Fa(Dat_Anz) = ActiveCell
For i = 5 To wsDV.Cells(wsDV.Rows.Count, 3).End(xlUp).Row
Cells(i, 3).Select
If CDbl(CDate(Cells(i, 3))) >= datum1 And CDbl(CDate(Cells(i, 3))) Danke schon mal
Gruß Mars