ich habe hier über die Recherche ein Makro gefunden (Ersteller des Makros war Hajo_Zi), das beim Öffnen einer bestimmten Exceldatei eine Symbolleiste mit 3 Schaltflächen erstellt und beim Schließen diese dann wieder ausblendet. Nun möchte ich gerne, dass vor der zweiten und dritten Schaltfläche eine Gruppierung eingefügt wird. Wie kann ich das bewerkstelligen.
Nachfolgend mal den Teil des Makros, dass die Symbolleiste erstellt. Wo muß die Funktion für die Gruppierung eingefügt werden, wenn das gehen sollte?
Private Sub Workbook_Open()
Dim cb As CommandBar
Dim CBC As CommandBarButton
Dim I%
On Error Resume Next
Set cb = Application.CommandBars.Add(Name:="Monatsdaten einlesen", _
temporary:=True, Position:=msoBarTop)
On Error GoTo 0
If Application.CommandBars("Monatsdaten einlesen").Visible = False Then
cb.Visible = True
For I = 1 To 15
Set CBC = cb.Controls.Add(Type:=msoControlButton)
With CBC
.Width = 50 ' Breite der Schalter
.Style = msoButtonCaption ' Text auf Schaltfläche
Select Case I
Case 1
.Caption = "Monatsdaten einlesen"
.OnAction = "Ablesung"
.TooltipText = "Taste drücken um Monatsdaten einzulesen"
Case 2
.Caption = "Alle Daten anzeigen"
.OnAction = "Alle_Daten_anzeigen"
.TooltipText = "Taste drücken um alle Daten wieder anzuzeigen"
Case 3
.Caption = "Doppelte Ablesewerte filtern"
.OnAction = "Doppelte_Ablesewerte_filtern"
.TooltipText = "Taste drücken um doppelt vorhandene Ablesewerte zu filtern"
End Select
End With
Next I
End If
Range("A2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
Range("D3").Select
End Sub
Vielen Dank für Eure Hilfe,
Oliver