wie viele DropDowns mit Werten befüllen?
05.06.2003 09:15:59
Gabriel
neuer Thread, weil meine ursprüngliche Antwort auf Nikes Lösung zu weit unten in der Seite liegt...
Also ich hab's so versucht:
Dim wks As Worksheet
Dim oleObj As Object
For Each wks In ActiveWorkbook.Worksheets
For Each oleObj In wks.OLEObjects
If Left(oleObj.Name, 3) = "cmb" Then
With oleObj
.AddItem "Arbeit"
.AddItem "Urlaub"
.AddItem "Krank"
.AddItem "Feiertag"
End With
End If
Next
Next
(Das ist ein Tabellenblatt "Monat xyz" und für jeden Tag gibt es da ein Dropdown, das mit den o.g. Werten gefüllt werden soll.)
Aber dann kriege ich einen "Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht" in der Zeile mit .AddItem "Arbeit".
Wie muss ich's richtig machen??
Danke, und Grüße
Gabriel