das ist der code, welcher automatisch durch das add in erstellt wurde:
Sub CreateCmdBar()
Dim objBar As CommandBar
'Begin insert Symbolleiste2
On Error Resume Next
Application.CommandBars("Symbolleiste2").Delete
On Error GoTo 0
Set objBar = Application.CommandBars.Add("Symbolleiste2", msoBarTop, False, False)
objBar.Visible = True
'End insert Symbolleiste2
'Begin insert Symbolleiste
On Error Resume Next
Application.CommandBars("Symbolleiste").Delete
On Error GoTo 0
Set objBar = Application.CommandBars.Add("Symbolleiste", msoBarTop, False, False)
objBar.Visible = True
'End insert Symbolleiste
End Sub
Sub CreateControl()
Dim objBtn As CommandBarButton
'Begin insert speichern
On Error Resume Next
Application.CommandBars("Symbolleiste").Controls("speichern").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste").Controls.Add(Type:=msoControlButton, Before:=1, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste").Controls.Add(Type:=msoControlButton, Before:=0, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "speichern"
.OnAction = "Dateispeichern"
.BeginGroup = False
.TooltipText = "Speichern"
.Style = msoButtonIconAndCaptionBelow
.FaceId = 3
End With
'End insert speichern
'Begin insert Drucken
On Error Resume Next
Application.CommandBars("Symbolleiste").Controls("Drucken").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste").Controls.Add(Type:=msoControlButton, Before:=2, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste").Controls.Add(Type:=msoControlButton, Before:=1, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "Drucken"
.OnAction = "DateiDruckdialog"
.BeginGroup = False
.TooltipText = "Drucken"
.Style = msoButtonIconAndCaptionBelow
.FaceId = 4
End With
'End insert Drucken
'Begin insert schließen
On Error Resume Next
Application.CommandBars("Symbolleiste").Controls("schließen").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste").Controls.Add(Type:=msoControlButton, Before:=3, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste").Controls.Add(Type:=msoControlButton, Before:=2, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "schließen"
.OnAction = "Dateisschließen"
.BeginGroup = False
.TooltipText = "Datei schließen"
.Style = msoButtonIconAndCaptionBelow
.FaceId = 358
End With
'End insert schließen
'Begin insert Kontrolle
On Error Resume Next
Application.CommandBars("Symbolleiste").Controls("Kontrolle").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste").Controls.Add(Type:=msoControlButton, Before:=4, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste").Controls.Add(Type:=msoControlButton, Before:=3, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "Kontrolle"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.TooltipText = "Kontrolle der eingegebenen Daten"
.Style = msoButtonIconAndCaptionBelow
.FaceId = 720
End With
'End insert Kontrolle
'Begin insert Zoom
On Error Resume Next
Application.CommandBars("Symbolleiste").Controls("Zoom").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste").Controls.Add(Type:=msoControlButton, Before:=5, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste").Controls.Add(Type:=msoControlButton, Before:=4, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "Zoom"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.TooltipText = "Zoom aller Arbeitsblätter"
.Style = msoButtonIconAndCaptionBelow
.FaceId = 109
End With
'End insert Zoom
'Begin insert Seiten zeigen
On Error Resume Next
Application.CommandBars("Symbolleiste").Controls("Seiten zeigen").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste").Controls.Add(Type:=msoControlButton, Before:=6, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste").Controls.Add(Type:=msoControlButton, Before:=5, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "Seiten zeigen"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.TooltipText = "Seiten einblenden"
.Style = msoButtonIconAndCaptionBelow
.FaceId = 3361
End With
'End insert Seiten zeigen
'Begin insert JAN
On Error Resume Next
Application.CommandBars("Symbolleiste2").Controls("JAN").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=1, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=0, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "JAN"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 1777
End With
'End insert JAN
'Begin insert FEB
On Error Resume Next
Application.CommandBars("Symbolleiste2").Controls("FEB").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=2, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=1, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "FEB"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 1777
End With
'End insert FEB
'Begin insert MRZ
On Error Resume Next
Application.CommandBars("Symbolleiste2").Controls("MRZ").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=3, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=2, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "MRZ"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 1777
End With
'End insert MRZ
'Begin insert APR
On Error Resume Next
Application.CommandBars("Symbolleiste2").Controls("APR").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=4, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=3, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "APR"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 1777
End With
'End insert APR
'Begin insert MAI
On Error Resume Next
Application.CommandBars("Symbolleiste2").Controls("MAI").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=5, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=4, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "MAI"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 1777
End With
'End insert MAI
'Begin insert JUN
On Error Resume Next
Application.CommandBars("Symbolleiste2").Controls("JUN").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=6, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=5, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "JUN"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 1777
End With
'End insert JUN
'Begin insert JUL
On Error Resume Next
Application.CommandBars("Symbolleiste2").Controls("JUL").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=7, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=6, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "JUL"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 1777
End With
'End insert JUL
'Begin insert AUG
On Error Resume Next
Application.CommandBars("Symbolleiste2").Controls("AUG").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=8, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=7, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "AUG"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 1777
End With
'End insert AUG
'Begin insert SEP
On Error Resume Next
Application.CommandBars("Symbolleiste2").Controls("SEP").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=9, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=8, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "SEP"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 1777
End With
'End insert SEP
'Begin insert OKT
On Error Resume Next
Application.CommandBars("Symbolleiste2").Controls("OKT").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=10, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=9, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "OKT"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 1777
End With
'End insert OKT
'Begin insert NOV
On Error Resume Next
Application.CommandBars("Symbolleiste2").Controls("NOV").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=11, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=10, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "NOV"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 1777
End With
'End insert NOV
'Begin insert DEZ
On Error Resume Next
Application.CommandBars("Symbolleiste2").Controls("DEZ").Delete
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=12, Temporary:=True)
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Symbolleiste2").Controls.Add(Type:=msoControlButton, Before:=11, Temporary:=True)
End If
On Error GoTo 0
With objBtn
.Caption = "DEZ"
.OnAction = "Dateiöffnen"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 1777
End With
'End insert DEZ
End Sub
stört euch nicht daran, dass bei den meisten das makro öffnen ausgeführt wird, das wollt ich später ändern.
wenn man die datei öffnet, erscheint der fehler, wenn man erst den 1. dann den 2. code mauell ausführt, klappts ganz normal!!!!
was ich dazu noch fragen möchte, wie kann ich dazu noch alle anderen symbolleisten ausblenden, nur diese anzeigen?
und das wird ja dann für alle geöffneten arbeitsmappen übernommen, es soll aber NUR für die eine sein!!!!!
Danke