Makro per Menüeintrag starten

Question

Hallo Helfer,
mit diesem Makro erstelle in ein neues Menü:

Sub Menue_einfügen()
On Error Resume Next
Application.CommandBars.ActiveMenuBar _
.Controls("Makro KStausw").Delete
With Application.CommandBars.ActiveMenuBar.Controls.Add(Type:=msoControlPopup)
.BeginGroup = True 'Trennlinie
On Error GoTo 0
.Caption = "Makro &KStausw"
With .Controls.Add
.Caption = "Formeln kopieren"
.OnAction = "Formeln_kopieren"
End With
With .Controls.Add
.Caption = "Spalten kopieren"
.OnAction = "Spalten_kopieren"
End With
With .Controls.Add
.Caption = "&Tabelle zu Datei"
.OnAction = "Tabellen_in_neue_Dateien_kopieren"
End With
End With
End Sub

Der 3te Eintrag funktioniert. Beim klick auf einen der ersten beiden Einträge findet Excel die Makros nicht, obwohl die Makronamen genau mit den Einträgen hinter OnAction übereinstimmen. Woran kann das liegen??

Sub Formeln_kopieren()
Code
End Sub

Sub Spalten_kopieren()
Code
End Sub

Answer 1

Hallo Wolfgang,

bei mir funktioniert ein Nachbau (mit Excel 2007) einwandfrei. Prüfe noch einmal die Namen der einzelnen Makros. Ansonsten lade mal eine Beispieldatei hoch.

Gruß

M.O.

Answer 2

Hallo,
ich habe gerade gesehen, das wenn ich über Menü: Extras, Makro, Makros gehe, dann werden mir die ersten beiden Makro mit Dateiname.xls!Modulname.Makroname angezeigt. Und auf diesem Wege lassen Sie sich ausführen. Von den anderen Makros in der Datei steht dort nur der Makroname. Ist das ein weiterführender Hinweis??
mfg
Wolfgang

Answer 3

www.fileuploadx.de/391134

Hallo,
oben der Link zur Beispiel Datei
mfg
Wolfgang

Answer 4

Hallo,
nochmal, wo kann ich die Datei hochladen, ohne das man auf den Download ewig wartet?
mfg
Wolfgang

Answer 5

Hallo Wolfgang,

lösche das leere Modul "Formeln kopieren" und benenne das Modul "Spalten_kopieren" um (z.B. in "Spaltenkopieren"), dann funktionert deine Menuleiste. Gleiche Modul- und Makronamen führt zu dem Fehler.

Gruß

M.O.

Answer 6

Hallo M.O.,
vielen Dank, das wars und wieder was gelernt.
mfg
Wolfgang