Menüpunkt mit Funktion
14.09.2004 18:50:48
Michi
hab folgendes Problem. Mit dem Code soll über eine Userform ein neuer Menüeintrag in einer eigenen Symbolleiste erstellt werden. Leider ist dieser Menüeintrag weg, sobald ich das File schließe. Sicher nur ein kleiner Fehler, aber ich find ihn nicht. Außerdem erstellt der Code nur einen neuen Menüeintrag, wenn bereits einer vorhanden ist. Ist das Menü leer, bringt er einen Debug-Fehler. Woran liegts?
Sub CreateControl()
Dim objBtn As CommandBarButton
'Begin insert Testmitarbeiter
On Error Resume Next
Application.CommandBars("Urlaubsplanung").Controls("Ansicht").Controls("Personal").Controls("Testmitarbeiter").Delete
Err.Clear
Set objBtn = Application.CommandBars("Urlaubsplanung").Controls("Ansicht").Controls("Personal").Controls.Add(Type:=msoControlButton, Before:=1, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Urlaubsplanung").Controls("Ansicht").Controls("Personal").Controls.Add(Type:=msoControlButton, Before:=1, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = ActiveSheet.Name
.Parameter = ActiveSheet.Name
.OnAction = "ActivateTab"
.BeginGroup = False
.TooltipText = "Blatt " & ActiveSheet.Name & " anwählen"
.Style = msoButtonIconAndCaption
.FaceId = 2141
End With
'End insert Testmitarbeiter
End Sub
Lieben Gruß
Michi