Spätestens, wenn man die kleinen Helfer dann nicht nur selber nutzen, sondern auch etwa den Kollegen bereitstellen möchte, macht es teilweise Sinn, sie in einem Add-In zu bündeln und mit Menüeinträgen den komfortablen Aufruf zu ermöglichen. Wie das geht, fasse ich hier fix zusammen.

In meiner Arbeitsmappe finden sich sämtliche Module, Prozeduren und Funktionen, die wir in der Firma regelmäßig verwenden. Als Add-In wird diese nun stets geöffnet, wenn man Excel startet und bohrt als erstes durch folgenden Code im Bereich Workbook_Open das Menü auf:

1
2
3
4
5
6
7
8
9
10
11
12
13

Option Explicit
 
Private Sub Workbook_Open()
    Application.CommandBars("Worksheet Menu Bar").Controls("Daten").Reset
 
    Dim myCommandBar As CommandBar
    Dim myCommandBarPopup As CommandBarPopup
    Dim myCommandBarButton As CommandBarButton
 
    Set myCommandBar = Application.CommandBars("Worksheet Menu Bar")
    Set myCommandBarPopup = myCommandBar.Controls("Daten")
    Set myCommandBarButton = myCommandBarPopup.Controls.Add(Type:=msoControlButton, _
        before:=myCommandBarPopup.Controls.Count, temporary:=True)

In diesem Fall nutzen wir das vorhandene Standardmenü Daten, welches erst einmal zurückgesetzt wird und somit keine ungewollten doppelten Einträge enthalten kann. Mit der add-Methode ließe sich auch ein neues Menü (= CommandBarPopup) erstellen, um alle Tools zu gruppieren. Den eigentliche Menüeintrag (myCommandBarButton ) platzieren wir mit der Eigenschaft before am Ende des Menüs.

Nun definieren wir diesen wie folgt:

14
15
16
17
18
19
20
21
22

    With myCommandBarButton 
        .BeginGroup = True
        .Caption = "Mein Makro"
        .FaceId = 343
        .OnAction = "Supermakro"
        .Tag = "Supermakro"
    End With
 
    Set myCommandBarButton = Nothing

Durch die Eigenschaft BeginGroup wird ein abgrenzender Strich über dem neuen Menüeintrag erzeugt und die auszuführende Prozedur heißt in diesem Fall Supermakro. Mit der FaceID wird ein Icon bestimmt – hier die Glühbirne.

Obwohl wir unseren Eintrag in Zeile 13 als temporären gekennzeichnet haben, räume ich immer gerne hinter mir auf. Folgendes schreiben wir daher in den BeforeClose-Teil der Arbeitsmappe:

23
24
25
26
27

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
        Application.CommandBars("Worksheet Menu Bar").Controls("Daten").Reset
    On Error GoTo 0
End Sub

Auch in das durch Klick der rechten Maustaste aufrufbare Kontextmenü lassen sich neue Einträge bringen. Hier ein Beispiel für das konventionelle Zellen-Menü:

28
29
30
31
32
33
34
35

Set myCommandBarButton = Application.CommandBars("Cell").Controls.Add(before:=myCommandBarPopup.Controls.Count, temporary:=True)
    With myCommandBarButton
        .BeginGroup = True
        .Caption = "Mein Makro"
        .FaceId = 343
        .OnAction = "Supermakro"
        .Tag = "Supermakro"
    End With

• Bis zu 20 Spieler
• Bis zu 5 Teams
• Punkte bei richtigem Tipp, richtiger Differenz und richtiger Tendenz
• Bonuspunkte für Tipp auf Turniersieger und Tor-Anzahl
• Jackpot-Verwaltung
• Tabellarische Auswertung und Siegertreppchen

Eine vorgeschlagene Spielanleitung findet Ihr auf dem ersten Tabellenblatt.
Erstellt und getestet wurde mit Excel 2003.

Download

Wenn Ihr Bugs findet, sagt an, wenn alles klappt meldet Euch und bei Fragen bitte kommentieren!
Viel Spaß.

Tutorial laden