title image


Smiley Re: Makro über Button zuschalten und ausschalten
Hallo!



Probier es mal mit folgendem Code:



Dim bol_Makroaktiv As Boolean



Private Sub CommandButton1_Click()

bol_Makroaktiv = Not bol_Makroaktiv

End Sub



Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If bol_Makroaktiv Then

Target.Interior.ColorIndex = 39 'hier eine Farbe wählen, 3 = rot

End If

End Sub



Alternativ zu dem Commandbutton würde ich einen Togglebutton empfehlen. An dessen Erscheinungsbild (eingedrückt oder nicht eingedrückt) könnte man ablesen, ob die Färbung derzeit aktiviert ist.

Der Code zu diesem Togglebutton würde so lauten:



Private Sub ToggleButton1_Click()

bol_Makroaktiv = ToggleButton1

End Sub



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: