fehler beim aufrufen

wenn ich nachfolgende sub per


Private Sub workbook_Open()
symbolleiste_erstellen true
End Sub

aufrufen möchte, sagt mir excel:" fehler beim kompilieren: argument ist nicht optional"
woran liegt das? und was muss ich machen, um sie fehlerfrei zu starten?
Sub symbolleiste_erstellen(strName As String, intID As Integer)
Dim mnuCommandbar As CommandBar
Dim mnuMenuControl As CommandBarControl
Dim mnuControlButton As CommandBarControl
Dim intPosition As Integer
intPosition = CommandBars(95).Controls.Count
Set mnuCo mmandbar = _
CommandBars.Add(strName, msoBarFloating, , True)
Set mnuMenuControl = _
CommandBars(95).Controls _
.Add(msoControlPopup, intID, , intPosition, True)
mnuMenueControl.Caption = strName

Set mnuControlButton = _
mnuCommandbar.Controls.Add(Type:=msoControlButton)
With mnuControlButton
.Style = msoButtonCaption
.Caption = "Datenermittlung und -aufbereitung"
.TooltipText = "Datenermittlung und -aufbereitung"
End With

Set mnuControlButton = _
mnuCommandbar.Controls.Add(Type:=msoControlButton)
With mnuControlButton
.Style = msoButtonCaption
.Caption = "Ist-Analyse"
.TooltipText = "Ist-Analyse"
End With
Set mnuControlButton = _
mnuCommandbar.Controls.Add(Type:=msoControlButton)
With mnuControlButton
.Style = msoButtonCaption
.Caption = "Bedarfsberechnung Ressourcen"
.TooltipText = "Bedarfsberechnung Ressourcen"
End With
mnuCommandbar.Visible = True
Set mnuControlButton = Nothing
Set mnuMenuControl = Nothing
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
du gehst für meinen Geschmack den falschen Weg. Statt irgendeinen Code zu verwenden,
den du nicht verstehst, stell besser gezielte Fragen.
Ich verstehe nicht, was in deinem Code Commandbars(95) für eine Rolle spielt, darauf
hast du noch gar nicht geantwortet.
mfg Leo


Private Sub Workbook_Activate()
Call Commandbar_erstellen
End Sub


Private Sub Workbook_Deactivate()
Call Commandbar_loeschen
End Sub

Option Explicit
Const CBNAME As String = "DeineSymbolleiste"
Sub Commandbar_erstellen()
Dim cb As CommandBar, cbb As CommandBarButton, cbp As CommandBarPopup
'Commandbar löschen
Call Commandbar_loeschen
'Commandbar erststellen
Set cb = CommandBars.Add(CBNAME)
'Popup erstellen
Set cbp = cb.Controls.Add(msoControlPopup)
cbp.Caption = "Ich bin ein freundliches Popup..."
'1. Button ins Popup
Set cbb = cbp.Controls.Add(msoControlButton)
With cbb
.Style = msoButtonIconAndCaption
.Caption = "Button 1"
.BeginGroup = True
.FaceId = 29
.OnAction = "Test"
End With
'2. Button ins Popup
Set cbb = cbp.Controls.Add(msoControlButton)
With cbb
.Style = msoButtonIconAndCaption
.Caption = "Button 2"
.BeginGroup = True
.FaceId = 33
.OnAction = "Test"
End With
'Commandbar anzeigen
With cb
.Enabled = True
.Visible = True
.Position = msoBarFloating
.Left = 100
.Top = 150
End With
End Sub
Sub Commandbar_loeschen()
On Error Resume Next
CommandBars(CBNAME).Delete
End Sub
Sub Test()
MsgBox "Testmakro"
End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread