Combobox AddItem
17.12.2023 12:25:33
Roland
ich habe seit zwei Jahren folgenden Code am Laufen, der mir eine Combobox mit Datumseinträgen per AddItem füllt, die sich auf einem Tabellenblatt in der Spalte C befinden. Es handelt sich dort um individuelle Datums, die aber der Reihe nach sortiert sind. Es kommt vor, dass in Spalte C das Datums öfter vorkommt, weshalb er nur 1x das Datum eines jeden vorhandenen Tages als Eintrag in die CB übernimmt:
Sub Button_Combobox_initialisieren()
'ComboboxDatum befüllen mit dynamischen Werten
Dim i As Long
Dim dtDatum As Date
Dim dtDatumMin As Date
dtDatumMin = Application.Min(ThisWorkbook.Worksheets("Nachweise").Columns(3))
dtDatum = dtDatumskorrektur
For i = 0 To DateDiff("d", CDate(dtDatumMin), CDate(dtDatum))
With Sheets("Auswertung").OLEObjects("Button_Combobox").Object
.AddItem CDate(dtDatum - i)
End With
Next i
End Sub
Seit gestern kommt nun ein Fehler beim Start der Excel-Datei (Kompilierungsfehler - Nicht genug Speicher) der mir allerdings nicht die genaue Stelle anzeigt, in der sich der Fehler befindet. Jetzt vermute ich, dass die Combobox über die Jahre hinweg zu viele Einträge erhalten hat und Excel 2016 32bit nicht mehr damit klar kommt.
A) Kann ein solcher Kompilierungsfehler von einer überfüllten CBox kommen?
B) Kann man den Code so umschreiben, damit er nur die Datums aus dem aktuellen Jahr berücksichtigt, die sich in Spalte C befinden?
Lieben Dank für Eure Hilfe.
PS: Die Datei ist leider voll mit indiv. Firmendaten und kann leider hier nicht eingestellt werden.