ich habe im Forum bereits eniges zu diesem Thema gefunden.
Leider fehlt mir hier noch die Zuweisung, dass mein Code ausgeführt wird, wenn ein Button gedrückt wird.
Der Code steht in der "
Private Function ColumnFilter" hinterlegt.
Ich würde gerne evtl Checkboxen anstelle von normalen buttons im Ansicht-Dropdown nehmen, aber _
ich weiß den Befehl leider nicht.
Private Sub Workbook_Open()
Dim symb As CommandBar, Param As CommandBarControl, Button As CommandBarButton
Dim Button2 As CommandBarButton, Button3 As CommandBarButton
On Error Resume Next
Set symb = Application.CommandBars.Add("NeueSymbolleiste", Position:=msoBarTop, Temporary:=True) _
With symb
.Left = 0
.Visible = True
End With
Set Param = Application.CommandBars("NeueSymbolleiste").Controls.Add(Type:=msoControlPopup)
With Param
.Caption = "Ansicht"
.TooltipText = "Ansicht auswählen"
.Width = 60
.Height = 30
End With
Set Button = Param.Controls.Add
With Button
.BeginGroup = True
.Caption = "EK-1-S"
.Style = msoButtonIconAndCaption
.TooltipText = "EK-1-S anzeigen"
.OnAction = ColumnFilter
End With
Set Button2 = Param.Controls.Add
With Button2
.BeginGroup = True
.Caption = "Umbaubeauftragte"
.Style = msoButtonIconAndCaption
.TooltipText = "Umbaubeauftragte anzeigen"
.OnAction = ColumnFilter
End With
Set Button3 = Param.Controls.Add
With Button3
.BeginGroup = True
.Caption = "Personalreferent"
.Style = msoButtonIconAndCaption
.TooltipText = "Personalreferent anzeigen"
.OnAction = ColumnFilter
End With
End Sub
Vielen Dank für jede Hilfe =)
VG
Adrian Fricke