Variablen Problem
05.03.2004 15:12:09
Martin
hab folgendes Problem: Ich erstelle über Userform ein neues Tabellenblatt, das umbenannt wird. Gleichzeitig wird ein neuer Menüpunkt in einer eigenen Menüleiste erstellt, der den Namen dieses neuen Blattes enthält. Soweit kein Problem. Nur schaffe ich es nicht, ein Makro zu hinterlegen, das genau dieses neu angelegte Tabellenblatt öffnet. Auch der Tooltip sollte gleich mit angepaßt werden. Wer kann mir helfen? Mein bisheriger Code:
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:=31, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Urlaubsplanung").Controls("Ansicht").Controls("Personal").Controls.Add(Type:=msoControlButton, Before:=30, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = ActiveSheet.Name
.OnAction = "ActivateTab"
.BeginGroup = False
.TooltipText = "Mitarbeiter XY"
.Style = msoButtonIconAndCaption
.FaceId = 2141
End With
'End insert Testmitarbeiter
End Sub
Lieben Gruß und danke
Martin