Supportnet Computer
Planet of Tech

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

Antwort 2 von anno 2005

paßt genau
Vielen Dank
grüße von Anno2005

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: