Fehler 5 bei Controls
31.05.2006 12:57:11
Reinhard
in der With-Zeile kommt Fehler 5, warum bzw. wie muss der Code umgeschrieben werden? Die auskommentierte For-Schleife läuft sauber durch.
Sub nn()
'Dim c
'For Each c In CommandBars("Worksheet Menu Bar").Controls("&Datei").Controls
' MsgBox c.Caption
'Next c
With CommandBars("Worksheet Menu Bar").Controls("&Datei").Controls("Seitenansi&ht")
'MsgBox .OnAction
.OnAction = "tttt"
End With
End Sub
Danke ^ Gruß
Reinhard
Anzeige