Excel 2007 2010 Command Bars
Robert
Folgendes Problem ich hab vor einiger zeit ein Programm geschrieben.
Jetzt die Änderung von Excel 2007 auf 2010 und Irgendwie geht das Programm nicht mehr.
Es wird keine command bar mehr erstellt.
Komischerweise laufen die Restlichen Teile....
kann mir bitte wer helfen.
Ich hab schon gegoogelt und komm irgendwie nicht drauf...
LG
Robert
Private Sub Workbook_Open()
AbtIIIComandBar
End Sub
Private Function AbtIIIComandBar()
Dim myCommandBar As CommandBar
Dim myCommandBarButton As CommandBarButton
On Error Resume Next
'# zu modifizieren...
'# 1. Nachsehen ob es schon eine toolbar gibt
'# 2. Nachsehen ob schon eine Datei mit gleicher Programmierung offen ist.
'# 3. Wenn Datei offen keine neue Toolbar erstellen
Toolbars("KP").Delete
Toolbars.add Name:="KP"
Set myCommandBar = Application.CommandBars("KP AbtIII")
Set myCommandBarButton = myCommandBar.Controls.add(Type:=msoControlButton, Before:= _
myCommandBar.Controls.Count + 1, Temporary:=True)
With myCommandBarButton
.BeginGroup = True
.Caption = "Ansichten"
.FaceId = 59
.OnAction = "Ansichten"
.Style = msoButtonCaption
.TooltipText = "Verschiedene Ansichten darstellen"
.Tag = "Ansichten"
End With
Set myCommandBarButton = myCommandBar.Controls.add(Type:=msoControlButton, Before:= _
myCommandBar.Controls.Count + 1, Temporary:=True)
With myCommandBarButton
.BeginGroup = True
.Caption = "Filter"
.FaceId = 59
.OnAction = "Filter"
.Style = msoButtonCaption
.TooltipText = "Filtern"
.Tag = "BauM"
End With
Set myCommandBarButton = myCommandBar.Controls.add(Type:=msoControlButton, Before:= _
myCommandBar.Controls.Count + 1, Temporary:=True)
With myCommandBarButton
.BeginGroup = True
.Caption = "Datentransfer"
.FaceId = 59
.OnAction = "Datentransfer"
.Style = msoButtonCaption
.TooltipText = "Datentransfer einblenden"
.Tag = "Datentransfer"
End With
Set myCommandBar = Nothing
Set myCommandBarButton = Nothing
Toolbars("KP AbtIII").Visible = True
End Function