Zelle bei Click färben

Forumthread: Zelle bei Click färben

16.12.2004 10:01:03

wean

huhu,
ich würde gerne einen Kalender basteln. die zellen entsprechen hierbei den tagen. bei einem click auf eine zelle, soll diese eingefärbt werden und irgendeine variable den wert "+1" erhalten. damit ich die gefärbten zellen zählen kann.
clickt man nochmal auf einen tag, wird die zelle wieder entfärbt und von der variablen eines abgezogen.....ginge das?

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zelle bei Click färben

Roland

AW: Zelle bei Click färben

Roland

Hallo wean,
so etwa:
Option Explicit
Dim i As Integer


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Interior.ColorIndex = xlNone Then
.Interior.ColorIndex = 3
i = i + 1
Else
.Interior.ColorIndex = xlNone
i = i - 1
End If
End With
MsgBox i & " rote Zellen"
End Sub

Gruß Roland

Forumthread: Zelle bei Click färben

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread