Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen Farbwechsel

Forumthread: Zellen Farbwechsel

Zellen Farbwechsel
13.06.2006 10:14:05
Michael
hallo an alle,
ich würde gerne in bestimmte zellen bei einem doppelklick jeweils eine farbänderung der zelle haben. es handelt sich um die farben rot, gelb und grün (so auch die reihenfolge). die betreffenden zellen sind " Range("F6:F100"). ist sowas möglich? bzw. würde mir da jemand dabei helfen?
danke, und einen schönen warmen tag wünsche ich euch allen.
Michael
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen Farbwechsel
13.06.2006 10:24:53
Bertram
Hi Michael,
meinst du so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("F6:F100")) Is Nothing Then
Select Case Target.Interior.ColorIndex
Case Is = xlNone
Target.Interior.ColorIndex = 3
Case Is = 3
Target.Interior.ColorIndex = 6
Case Is = 6
Target.Interior.ColorIndex = 4
Case Is = 4
Target.Interior.ColorIndex = xlNone
End Select
End If
End Sub

Gruß
Bertram
Anzeige
AW: Zellen Farbwechsel
13.06.2006 10:31:47
Michael
@Bertram
das ging aber schnell *ui*
danke dir, für deine schnelle hilfe.
ist genau das was ich gesucht habe.
nur eines noch.
beim doppelklick färbt er die zelle ein, bleibt aber blinkend stehen und wartet auf eingabe. wäre das noch abzuschalten? damit ein schnelles ändern (färben) möglich wäre.
bye michael
Anzeige
AW: Zellen Farbwechsel
13.06.2006 10:41:45
Harald
Sorry für's Einmischen ;-))

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("F6:F100")) Is Nothing Then
Select Case Target.Interior.ColorIndex
Case Is = xlNone
Target.Interior.ColorIndex = 3
Case Is = 3
Target.Interior.ColorIndex = 6
Case Is = 6
Target.Interior.ColorIndex = 4
Case Is = 4
Target.Interior.ColorIndex = xlNone
End Select
Cancel = True
End If
End Sub

Gruss Harald
Anzeige
AW: Zellen Farbwechsel
13.06.2006 10:47:32
Bertram
Hi Harald,
so ist's besser. hab auf die Schnelle 'Cancel' ganz vergessen:-)
Gruß
Bertram
AW: Zellen Farbwechsel
13.06.2006 10:44:43
Bertram
Hi Michael,
so sollte es gehen:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("F6:F100")) Is Nothing Then
Select Case Target.Interior.ColorIndex
Case Is = xlNone
Target.Interior.ColorIndex = 3
Application.SendKeys "{ESC}"
Case Is = 3
Target.Interior.ColorIndex = 6
Application.SendKeys "{ESC}"
Case Is = 6
Target.Interior.ColorIndex = 4
Application.SendKeys "{ESC}"
Case Is = 4
Target.Interior.ColorIndex = xlNone
Application.SendKeys "{ESC}"
End Select
End If
End Sub

Gruß
Bertram
Anzeige
AW: Zellen Farbwechsel
13.06.2006 10:47:34
michael
hallo ihr zwei,
vielen, vielen dank.
ist genau was ich gesucht habe.
dieses forum ist wie immer spitze.
bye michael
AW: Zellen Farbwechsel
13.06.2006 10:52:22
Bertram
Hi Michael,
nimm doch die Version von Harald (das Ding mit Cancel=True). Ist definitiv besser.
Gruß
Bertram
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige