Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle mit Doppelklick färben

Zelle mit Doppelklick färben
bissi
Hallo allerseits,
Ich möchte in umfangreicher Tabelle Zelle nach letztem Entrag farbig markieren.
Meine Idee mit Doppelklick, wobei erneuter Doppelklick auf diese Zelle Färbung wieder entfernen soll. Färbung würde ich noch hinbekommen, wie aber mit der „Entfärbung“
Antwort ist aber erst am Nachmittag möglich.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Selection.Interior
.ColorIndex = 6
End With
End Sub

mfg bissi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zelle mit Doppelklick färben
11.03.2007 06:39:36
Hans
Hallo bissi,
Deine Frage wäre mit dem ersten Code beantwortet, von der Aufgabenstellung her würde der zweite besser passen:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Selection.Interior
If .ColorIndex = xlColorIndexNone Then
.ColorIndex = 6
Else
.ColorIndex = xlColorIndexNone
End If
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Columns(Target.Column).Interior.ColorIndex = xlColorIndexNone
Cells(Cells(Rows.Count, Target.Column).End( _
xlUp).Row + 1, Target.Column).Interior.ColorIndex = 6
End Sub

Gruss hans
Anzeige
AW: Zelle mit Doppelklick färben
bissi
Hallo Hans, danke für deine Antwort. Variante 1 funktioniert wie gedacht.
gruß bissi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige