Excel 2016: Tastenkombination mit Shift führt "Untermakro" in Makro nicht aus

Auch ich hatte zunächst vermutet, der Code stimme nicht. Ich werde morgen mal nachfragen, ob es mit einem 3-er Shortcut funktioniert, der nicht schon von Excel vorbelegt ist.

Spielt keine Rolle, das Problem liegt woanders. Hier ist eine Testdatei, die geht:
<br />https://www.dropbox.com/s/kq3cp0lxzmkqnbp/c7c030c9-0c59-45ea-9c36-47d4349a1ef0.xlsm?dl=1
<br />


<br />Wenn es bei dem User nicht geht, dann ist die Tastenkombination von einem anderen Programm belegt und das kann auch im System hängen, sprich der Shortcut ist global gesperrt.
<br />Andreas,
<br />

Hallo Claus,

<br />das Makro bzw. die Makros funktionieren einwandfrei ohne Tastenkombination, wenn man sie also z. B. über Alt+F8 | Ausführen ausführt.
<br />Die Makros funktionieren außerdem mit Tastenkombinationen, die kein Shift verwenden. Der User bevorzugt allerdings Tastenkombinationen mit Ctrl + Shift, weil man dann weniger Gefahr läuft, ein Makro versehentlich zu starten...
<br />Auch ich hatte zunächst vermutet, der Code stimme nicht. Ich werde morgen mal nachfragen, ob es mit einem 3-er Shortcut funktioniert, der nicht schon von Excel vorbelegt ist.
<br />Vielen Dank für deine Antwort
<br />
Lisa
<br />

Hallo Andreas,
<br />danke fürs Testen. Ich werde das morgen beim User mal eruieren.
<br />Viele Grüße
<br />Lisa
<br />

Hallo Andreas,
<br />danke dir für die Mühe. Werde es morgen mit in die Firma nehmen und dem Anwender zum Testen geben. Notfalls muss er sich mit der einfacheren Tastenkombination begnügen oder eventuell ganz darauf verzichten und z. B. ein Symbol in der Symbolleiste für den Schnellzugriff integrieren. Mal sehen...
<br />Edit: In der Tat geht die Tastenkombination wieder verloren. Der Anwender hat sich daher entschieden, im vorliegenden Fall auf die 3-fach-Tastenkombination (Strg + Umschalt + Buchstabe) zu verzichten und lediglich Strg + Buchstabe zu verwenden. Letztlich bleibt das Verhalten ein Rätsel...
<br />Nochmals danke!
<br />Viele Grüße
<br />Lisa
<br />

Hallo Lisa,
<br />so genau hab ich nicht gekuckt, aber die Datei hat da einen Knacks... wo genau weiß ich nicht.
<br />Öffne nur die beiden Dateien
<br />In Zieldatei ersetzt Du den Code mit diesem:
<br />Option Explicit

Sub Setup()
Application.OnKey "^+a", "Testmakro"
End Sub

Sub Testmakro()
Dim Wb As Workbook, Ws As Worksheet
Set Wb = OtherWorkbook
Set Ws = Wb.Worksheets("Testblatt")
Ws.Copy After:=ThisWorkbook.Sheets(1)
Wb.Close
End Sub

Private Function OtherWorkbook() As Workbook
'Return the other opened workbook
For Each OtherWorkbook In Workbooks
'Skip the personal workbook, this is usual hidden
If OtherWorkbook.Windows(1).Visible Then
'Skip our own workbook
If OtherWorkbook.Name <> ThisWorkbook.Name Then Exit Function
End If
Next
End Function

<br />Dann führst Du einmal "Setup" aus und speicherst.
<br />Nun wird die Tastenkombination funktionieren.
<br />Könnte sein das sich das wieder zurücksetzt wenn Du beide schließt und wieder öffnest, falls ja nochmal Bescheid sagen, dann de-/aktivieren wir die Tastenkombination beim Öffnen/Schließen der Datei per VBA.
<br />Andreas.
<br />