ich habe ein Sheet "Test Definition", welches insgesamt 6 Comboboxen enthält. Diese sollen beim Öffnen des Files geleert werden. Mein Code sieht folgendermaßen aus:
Private Sub Workbook_open()
Dim objOle As OLEObject
For Each objOle In Sheets("Test Definition").OLEObjects
If objOle.progID = "Forms.ComboBox.1" Then objOle.Object.Clear
Next
End Sub
Nun das Problem: Beim Öffnen des Files wird manchmal gar kein Combobox geleert, manchmal leert VBA 3 von den 6.
Wenn ich im Debug-Modus durch den Code gehe, "findet" VBA alle Comboboxen (das Sheet enthält auch cmd Button), und geht auch brav in die Then-Anweisung. Nur dass die Comboboxen nicht geleert werden.
Hat jemand ne Idee, woran das liegen könnte? Gibt es ne andere zuverlässigere Möglichkeit, die Comboboxen zu leeren?
Danke im Voraus :-)
Liebe Grüße,
Doro