VBA CommandBar
15.05.2016 10:13:04
Lukas
Ich möchte 2 Commandbars in der Add-In-Leiste hinzufügen.
Dazu habe ich folgenden Code:
Sub Beginnen()
Dim BefehlsleistenPrfüen As CommandBar
For Each BefehlsleistenPrfüen In Application.CommandBars
If BefehlsleistenPrfüen.Name = "Stoppuhr" Then
BefehlsleistenPrfüen.Delete
End If
Next
For Each BefehlsleistenPrfüen In Application.CommandBars
If BefehlsleistenPrfüen.Name = "Bearbeitungsleiste" Then
BefehlsleistenPrfüen.Delete
End If
Next
Set meineBefehlsleiste = CommandBars.Add(Name:="Stoppuhr", Position:=msoBarFloating, temporary:= _
False)
Set BearbeitungsLeiste = CommandBars.Add(Name:="Bearbeitungsleiste", Position:= _
msoBarFloating, temporary:=False)
Set cmbStart = meineBefehlsleiste.Controls.Add(msoControlButton)
With cmbStart
.Caption = "Start"
.OnAction = "Start"
.Style = msoButtonCaption
.Enabled = True
.Visible = True
End With
Set cmbZwischenzeit = meineBefehlsleiste.Controls.Add(msoControlButton)
With cmbZwischenzeit
.Caption = "Zwischenzeit"
.OnAction = "Zwischenzeit"
.Style = msoButtonCaption
.Enabled = False
.Visible = True
End With
Set cmbStopp = meineBefehlsleiste.Controls.Add(msoControlButton)
With cmbStopp
.Caption = "Stopp"
.OnAction = "Stopp"
.Style = msoButtonCaption
.Enabled = False
.Visible = True
End With
Set cmbAblaufabschnittBearbeiten = BearbeitungsLeiste.Controls.Add(msoControlButton)
With cmbAblaufabschnittBearbeiten
.Caption = "Ablaufabschnitt bearbeiten"
.OnAction = "AblaufabschnittBearbeiten"
.Style = msoButtonCaption
.Enabled = True
.Visible = True
End With
Set cmbStörfallBearbeiten = BearbeitungsLeiste.Controls.Add(msoControlButton)
With cmbStörfallBearbeiten
.Caption = "Störfall bearbeiten"
.OnAction = "StöranfallBearbeiten"
.Style = msoButtonCaption
.Enabled = True
.Visible = True
End With
meineBefehlsleiste.Visible = True
BearbeitungsLeiste.Visible = True
End Sub
Ich bekomme allerdings bei der Commandbar mit dem Namen "Bearbeitungsleiste" eine Fehlermeldung. Die Zeile, die Fett hervorgehoben wurde, wird dabei markiert. Die Fehlermeldung lautet: 'Laufzeitfehler 5' Ungültiger Prozeduraufruf oder ungültiges Argument.
Was ist hier der Fehler und wie kann ich ihn beheben?
Danke für die Antworten schon im Voraus!