|
Hallo zusammen,
ich habe folgendes Problem:
Bei der Initialisierung einer Userform möchte ich 30 Comboboxen mit Uhrzeiten füllen. Dazu habe ich eine Variable Zeiten(1 to 30) as Variant definiert, denen ich die comboboxen zuweise (Zeiten(1) = ComboBox1 usw)
Die zugehörigen Anweisungen wie Zeiten(1).Clear funktionieren. In einer Tabelle habe ich nun Zellen mit Zeiten und diese Zellen sind benutzerdefiniert mit "hh:mm" formatiert und enthalten also 07:30, 07:35, 07:40, ... 18:00.
Jede der 30 ComboBoxen muss also alle Zeiten von 07:30 - 18:00 enthalten.
Dazu habe ich folgenden Code geschrieben:
i = 1
Do
i = i + 1
If Sheets("Tabelle").Cells(i, 7) = "" Then Exit Do
For j = 1 To 30
Zeiten(j).AddItem Format(Sheets("Tabelle").Cells(i, 7), "hh:nn")
Next j
Loop
Jede der 30 Comboboxen soll also mit 07:30 bis 18:00 befüllt werden. Den Format Befehl nutze ich, damit in den ComboBoxen auch die führenden Nullen angezeigt werden.
Und jetzt das Problem: In meinem Excel zu Hause (zunächst Excel 2010, jetzt Excel 2016) funktioniert das tadellos.
Dort, wo es funktionieren soll gibt es ein Excel 2003 und dort bricht das Programm mit einer Fehlermeldung ab: "Projekt oder Bibliothek nicht gefunden". Dabei ist die Prozedur, in der der Code steht gelb markiert und der Format - Befehl ist schwarz markiert.
Wo muss ich auf die Suche gehen?
Liebe Gürße,
Rüdiger
|