es sollen alle "Application.CommandBars.FindControl(ID:=L)", mit ID und Beschreibung, aufgelistet werden. Es werden aber nur die ersten 3 gelistet.
Dann erfolgt Code Abbruch (Zeile fett) mit: Laufzeitfehler '91', Objektvariable oder With_Blockvariable nicht festgelegt.
Was ist da falsch und muss wie geändert werden?
Mit der Bitte um Hilfe und Codekorrektur,
grüßt, Dieter(Drummer)
'Listet alle Icons auf in Spalte A bis C
'Code von Herber: ransi, am: 17.12.2009 18:26:09
Public Sub IconsListen()
Application.ScreenUpdating = False
Dim CC As CommandBarControl
Dim L As Long
Dim Z As Long
On Error Resume Next
With ActiveSheet
For L = 1 To 50000
Set CC = Application.CommandBars.FindControl(ID:=L)
CC.CopyFace
If Err = 0 Then
Z = Z + 1
.Paste .Cells(Z, 1)
.Cells(Z, 2) = CC.ID
.Cells(Z, 3) = CC.Caption
Else:
Err.Clear
End If
Next
End With
End Sub