Mit Hilfe des Addin vbCmdBar.xla erzeugte ich in einer Symbolleiste ein neues Menü. Leider bekomme ich beim Starten jetzt die Fehlermeldung Objektvariable oder With Blockvariable nicht festgelegt.Zuerst funktionierte jedoch alles.Woran kann dies bitte liegen?
Sub CreateControl()
Dim objBtn As CommandBarButton
Dim objPopUp As CommandBarPopup
'Begin insert Vergütung
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("Vergütung").Delete
Err.Clear
Set objPopUp = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=14, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objPopUp = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=13, Temporary:=True)
End If
On Error GoTo 0
objPopUp.Caption = "Vergütung" (hier erfolgt die FEHLERMELDUNG)
'End insert Vergütung
Danke
Josef