Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
772to776
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
Anzeige
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige