15.02.2018, 17:06
(Dieser Beitrag wurde zuletzt bearbeitet: 15.02.2018, 17:07 von CaptainNemo.)
Hi,
wie kriege ich die ToggleButtons synchronisiert, bzw. so hin, dass sie wie EIN Button reagieren?
Der ToggleButton1 befindet sich in allen sheets. Ideal wäre, wenn man Tabellenblätter kopieren und im selben Workbook einfügen könnte, ohne dass der Code verändert werden muss.
Ich habe es auch schon mit einer nicht-modalen Userform probiert, aber die Nachteile waren zu groß.
Im Modul "Diese Arbeitsmappe":
In den Modulen der Arbeitsblätter:
wie kriege ich die ToggleButtons synchronisiert, bzw. so hin, dass sie wie EIN Button reagieren?
Der ToggleButton1 befindet sich in allen sheets. Ideal wäre, wenn man Tabellenblätter kopieren und im selben Workbook einfügen könnte, ohne dass der Code verändert werden muss.
Ich habe es auch schon mit einer nicht-modalen Userform probiert, aber die Nachteile waren zu groß.
Im Modul "Diese Arbeitsmappe":
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.OLEObjects("ToggleButton1").Object.Caption = "Bearbeitung" Then
On Error GoTo ChgEvent_Error
SendKeys "{F2}"
ChgEvent_Error:
Application.EnableEvents = True
End If
End Sub
In den Modulen der Arbeitsblätter:
Code:
Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "Eingabe" Then
ToggleButton1.Caption = "Bearbeitung"
Else
ToggleButton1.Caption = "Eingabe"
End If
End Sub