in einem Makro mache ich einen neuen Eintrag in der Arbeitsblatt-Menüleiste im Befehl "Format"
Dim newCMD As CommandBarControl
Set newCMD = Application.CommandBars(involved_bars(bar_nr)).FindControl(ID:=30006)
'
' entfernen von möglicherweise bereits bestehenden Eintrag
'
On Error Resume Next
newCMD.Controls(txt_set_Chart_Colors).Delete
On Error GoTo 0
'
Set cmd_add = newCMD.Controls.Add(Type:=msoControlPopup, Temporary:=True)
With cmd_add
.Caption = txt_set_Chart_Colors
End With
usw. usw.
bei der Zeile newCMD.Controls(txt_set_Chart_Colors).Delete kommt nun die Fehlermeldung:
Run-time error '5': Invalid procedure call or argument.
Interessant ist einerseits, dass eine Fehlermeldung trotz "On Error Resume Next" kommt, andererseits dass das Makro auf anderen Rechner problemlos läuft.
Kann mir jemand sagen was da los ist?
Gruss yogi