Togglebutton
06.08.2021 01:17:28
Fiz
ich glaube ich fang am besten ganz von vorne an...
ich möchte gerne über einen ToggleButton steuern ob geänderte Zellen hervorgehoben werden sollen oder nicht.
dh solange der ToggleButton aktiviert ist, sollen geänderte Zellen rot hinterlegt werden.
ist er deaktiviert, sollen geänderte Zellen ihr ursprüngliches Format behalten.
Für das Hervorheben von Änderungen habe ich bisher folgende Lösung - die lässt sich aber nicht ein und ausschalten.
(was blöd ist, weil ich Werte aus einer anderen Tabelle einfügen will und erst danach sollen Änderungen gekennzeichnet werden)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("a:xfd")) Is Nothing) Then
Target.Interior.ColorIndex = 4
End If
End Sub
Mein ToggleButton heißt "Markieren" - die Farbe kann er schon mal ändern :-)
Private Sub Markieren_Change()
If Markieren.Value Then
Markieren.Caption = "Änderungen werden nicht markiert"
Markieren.BackColor = vbRed
Else
Markieren.Caption = "Änderungen werden markiert"
Markieren.BackColor = vbGreen
End If
End Sub
Was ich glaube zu verstehen ist, dass der Code im Worksheet ja nun mal für das Worksheet gilt - man muss ihn also abändern, (so dass er in allen Tabellenblättern gilt?) und dann kann er auch vom Togglebutton aufgerufen werden?
Ich habe zu wenig Durchblick um die Puzzleteile zu verbinden und Danke schon einmal für eure Mühe!