Schaltfläche drücken abfangen
08.08.2019 07:47:40
Jens
ich habe die Situation, dass zwei Fenster vertikal nebeneinander angezeigt werden.
Das rechte Fenster kann nicht aktiviert werden.
Allerdings befinden sich dort 2 Buttons (Schaltfläche 1&2, beide mit Makros verknüpft), die aber gedrückt werden dürfen, bevor das linke Fenster wieder aktiviert wird.
Allerdings scheint 'application.caller', mit dem ich das Ereignis abfangen möchte, hier nicht zu funktionieren:
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
If Range("Sperre") = "aktiv" And Wn.Left > 1 Then
MsgBox ActiveSheet.Shapes(Application.Caller).Name
ThisWorkbook.Windows(2).Activate
End If
End Sub