Supportnet / Forum / Tabellenkalkulation
Zellen per Klick färben (änderung)
Frage
Hallo zusammen
wer ist denn so nett ,mir das folgende Makro ein klein wenig abzuändern.
Es sollen bei aktiviertem Toggle Button nur der Bereich D6:AC12 und
D17:AD23 grün eingefärbt werden. Bei Klick auf einer Zelle außerhalb dieser
Bereiche soll das Makro beendet werden.
Public Markierung_aktiv As Integer
Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
Markierung_aktiv = 1
Else
Markierung_aktiv = 0
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Markierung_aktiv = 1 Then ActiveCell.Interior.ColorIndex = 4
End Sub
PS: Das Makro wurde von coros erstellt
ein schönes Wochenende wünscht euch
Anno2005
Antwort 1 von ypsilon
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Markierung_aktiv = 1
If Intersect(Target, [D6:AC12,D17:AD23]) Is Nothing Then Exit Sub
If Markierung_aktiv = 1 Then ActiveCell.Interior.ColorIndex = 4
End Sub
Markierung_aktiv = 1
If Intersect(Target, [D6:AC12,D17:AD23]) Is Nothing Then Exit Sub
If Markierung_aktiv = 1 Then ActiveCell.Interior.ColorIndex = 4
End Sub
Antwort 2 von anno 2005
paßt genau
Vielen Dank
grüße von Anno2005
Vielen Dank
grüße von Anno2005