Wenn man Makros geschrieben hat, die nicht nur in einer Arbeitsmappe zur Verfügung stehen sollen, bietet Excel 2010 für PCunter Windows 7 folgenden Funktion an:
Man legt eine Datei namens PERSONAL.XLSB.
C:\Users\IhrWindowsName\AppData\Roaming\Microsoft\Excel\XLSTART
an und bringt dort seine Makros unter, die bei jedem Excel Start geladen werden sollen. Es öffnet sich dann immer gleichzeitig zwei Dateien beim öffnen von Excel: die eigentliche Datei und die PERSONAL.XLSB. (Die Datei kann auch anders genannt werden unter Excel 2010, es werden alle Excel Datein in diesem Ordner automatisch geöffnet beim Start von Excel).
In der PERSONAL.XLSB sollte der Code wie gewohnt in ein Makro gelegt werden. Wenn gewünscht wird, dass ein Makro automatisch beim Start von Excel ausgeführt wird, um z.B. eigene Menüs zur Verfügung zu stellen, kann die Methode
Private Sub Workbook_Open()
genutzt werden unter DieseArbeitsmappe.
Excel 2011 für MAC
Geht leider nicht, nur über Addins.
Addins in Excel für Mac und PC
Mit Addins lassen sich eigene Menüs einbauen in Excel, die dann auch in jeder Arbeitsmappe verfügbar sind. Diese müssen in unter „DieseArbeitsmappe“ gespeichert und die Arbeitsmappe danach neu geöffnet werden, damit der Beispiel Code ausgeführt wird.
Private Sub Workbook_Open()
Dim cbMainMenuBar As CommandBar
Dim cbcCutomMenu As CommandBarControl
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("&Mein Menupunkt").Delete
On Error GoTo 0
Set cbMainMenuBar = _
Application.CommandBars("Worksheet Menu Bar")
Set cbcCutomMenu = _
cbMainMenuBar.Controls.Add(Type:=msoControlPopup)
cbcCutomMenu.Caption = "&Mein Menupunkt"
With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "Absätze entfernen"
.OnAction = "AbsaetzeEntfernen"
End With
With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "csv Dateien zusammenfügen"
.OnAction = "csvMerge"
End With
With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "Export einzelner .txt Dateien"
.OnAction = "transponierenUndSpeichern"
End With
End Sub