SendKeys-Code funktionert nicht

[CaptainNemo]

Hallo,

so! Die CommandButtons1-Buttons in den Arbeitsblättern habe ich jetzt synchronisiert.

Leider funktioniert der SendKeys-Code nicht. Habe es mit unterschiedlichen Variationen probiert. Früher hat er's mal getan (in einer anderen Version wie die untere).

Wo liegt der Fehler? Aufgabenstellung: Bei Caption "Bearbeitung" mit, bei "Eingabe" ohne SendKeys "{F2}"

Code:

Private Sub CommandButton1_Click()
   CommandButton1.Caption = IIf(CommandButton1.Caption = "Bearbeitung", "Eingabe", "Bearbeitung")
   ThisWorkbook.Names("T_1").Comment = CommandButton1.Caption
End Sub

Private Sub Worksheet_Activate()
   CommandButton1.Caption = ThisWorkbook.Names("T_1").Comment
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   If Sh.OLEObjects("CommandButton1").Object.Caption = "Bearbeitung" Then
          SendKeys "{F2}"
  End If
End Sub

[CaptainNemo]

Funktioniert alles. Sorry für das überflüssige Thema. Habe in einem Anflug von geistiger Umnachtung den SendKeys-Code nicht ins richtige Modul gesetzt.