Hallo Zusammen,
ich möchte gerne den Inhalt aller Comboboxen per Makro löschen. Da ich den Comboboxen Namen gegeben habe, funktioniert das Folgende NICHT:
Dim i As Integer
For i = 1 To Shapes.Count
ActiveSheet.OLEObjects("ComboBox" & i).Clear
On Error Resume Next
i = i + 1
Next i
Im einem Formular funktioniert das Folgende:
Dim cbo As Object
For Each cbo In Me.Controls
If TypeName(cbo) = "Combobox" Then cbo.Clear
Next cbo
Habe versucht, das auf eingebette Comboboxen zu übertragen:
Dim cbo As OLEObject
For Each cbo In ActiveSheet
If TypeName(cbo) = "Combobox" Then cbo.Clear
Next cbo
Aber das funktioniert nicht.
Weiß jemand Rat?
Viele Grüße,
Doro