Menü mit Makro steuern

Computer: Software & Programmierung Office Software
1

Grüezi miteinander
Ich habe folgendes Makro (Excel 2003).

Sub MenueAusklappen()
 Range("A1").Select
 Application.CommandBars("Worksheet Menu Bar").Controls(2).Controls(4).Execute

 Range("B1").Select
 Application.CommandBars("Worksheet Menu Bar").Controls(2).Controls(7).Execute
End Sub

Das kopiert A1 und geht zu B1. Hier wird das Menu Bearbeiten und dort der 7. Eintrag geöffnet (Inhalte einfügen).
Ich würde dieses Makro gern weiterschreiben, damit aus diesem geöffneten Untermenu der Punkt „Werte“ angewählt wird.
Weiss jemand von Euch, wie ich das formulieren muss?

Ich weiss schon, dass man das auf andere Art und Weise viel eleganter machen kann. Aber das könnte mir eine Hilfe sein für andere Probleme, die ich habe (Drucker- und Schacht-Auswahl).
Vielen Dank und viele Grüsse
Niclaus

2

Grüezi Niclaus,

Das kopiert A1 und geht zu B1. Hier wird das Menu Bearbeiten
und dort der 7. Eintrag geöffnet (Inhalte einfügen).

bei mir ist das der 6te, benutze da lieber die Namen.
Ist auch besser wenn du in 3 Wochen den Code wieder siehst, da hast du dann keine Ahnung mehr was Item 7 ist.

Ich würde dieses Makro gern weiterschreiben, damit aus diesem
geöffneten Untermenu der Punkt „Werte“ angewählt wird.
Weiss jemand von Euch, wie ich das formulieren muss?

Sorry, ich kam da auf keine Lösung.

Als Notbehelf:

Sub MenueAusklappen()
Range(„A1“).Copy
Range(„B1“).Select
Application.SendKeys „%W{ENTER}“
Application.CommandBars(„Worksheet Menu Bar“).Controls("&Bearbeiten").Controls(„I&nhalte einfügen…“).Execute
Application.CutCopyMode = False
End Sub

Gruß
Reinhard