20.02.2018, 17:44
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}"
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