Guten Tag VBA-Experten,
ich versuche ein shortcut über ein anderes worksheet per Makro zu betätigen.
Zur Verdeutlichung ein Minibeispiel:
In Excel 2016 setzte ich über Optionen -> Menüband anpassen einen beliebigen Befehl als shortcut (hier z. Bsp. "Einfärben" mit dem shortcut "Alt + 4") .
Nun möchte ich Zelle A1 in einem anderen Workbook einfärben.
Das habe ich mit folgenden Makro versucht:
Sub einfaerben()
'Workbook aufrufen und Zelle A1 anwählen
Workbooks("Book1.xlsx").Sheets("Sheet1").Activate
Cells(1, 1).Select
'Drücke Alt + 4
SendKeys "%4"
End Sub
Leider funktioniert das nicht. Die Zelle wird zwar angewählt und wenn ich dann per Hand Alt +4 Drücke wird das Einfärbtool angewählt. Jedoch nicht durch das Makro, das erzeugt nur einen Signalton.
Hat Jemand eine Idee wo der Fehler liegt ?
Vielen Dank schonmal im vorraus!
|