Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle bei Click färben

Zelle bei Click färben
16.12.2004 09: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
Anzeige
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige