Office: Zellen per Doppelklick einfärben

Hallo, ich habe folgendes Problem:
Mit Doppelklick färbe ich die Zellen F10, F11, F12 grün ein.
Ist es möglich, G14 blau und G10-G13 sowie F13 und F14 grau zu färben?

Das habe ich bis jetzt:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
Cancel = True
End Sub

Danke für eure Hilfe!
Sabine

 

Hi Sabine,

eine Möglichkeit:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
   Select Case Target.Address
      Case "$F$10", "$F$11", "$F$12"
         Target.Interior.ColorIndex = 4
      Case "$G$14"
         Target.Interior.ColorIndex = 5
      Case "$G$10", "$G$11", "$G$12", "$G$13", "$F$13", "$F$14"
         Target.Interior.ColorIndex = 16
   End Select
   Cancel = True
End Sub

Bis später,
Karin

 

Vielen Dank für die Hilfe!
Jetzt habe ich allerdings ein neues Problem: bei einem weiteren Doppelklick sollen die Zellen wieder entfärbt werden - das Cancel=True funktioniert hier aber nicht.

LG, Sabine

 

Hi Sabine,

WAS funktionert bei Cancel nicht?

Ersetzte die Codezeile für das Färben durch diesen Code:

Code:

         If Target.Interior.ColorIndex = 4 Then
            Target.Interior.ColorIndex = xlNone
         Else
            Target.Interior.ColorIndex = 4
         End If

Farben natürlich entsprechend anpassen.

Bis später,
Karin

 

Hallo Karin,

danke, jetzt funktioniert das Entfärben wieder!

Bis später,
Sabine

 

Hi Sabine,

Cancel im Doppelklick-Ereignis hat nichts damit zu tun, eine an der Zelle ausgeführte Veränderung wieder rückgängig zu machen - also in deinem Fall die Farbe zurückzusetzen. Damit hat es eine völlig andere Bewandnis: wenn man normalerweise einen Doppelklick auf eine Zelle ausführt, wird diese editiert, d.h. man kann den Zellinhalt bearbeiten, ohne dass der bereits vorhandende Inhalt durch Neueingabe gelöscht wird - so als ob man F2 drücken würde. Dieses Verhalten (Editieren des Zellinhaltes) würde aber in deinem Fall (bzw. ähnlich gearteten Fällen) nur stören, denn du willst ja nichts am Zellinhalt ändern. Hier nun kommt Cancel ins Spiel - es verhindert das Editieren des Zellinhaltes.
Falls es nun so wäre, dass du die anderen (nicht im Code festgelegten) Zellen nach wie vor per Doppelklick editieren willst, dann müsstest du das Cancel = True vom Ende des Codes wegnehmen und stattdessen ans Ende jeder Case-Anweisung schreiben. Der derzeitige Code ist so, dass generell das Editieren von Zellen per Doppelklick abgestellt ist.

Bis später,
Karin

 

Danke für die Erklärung!

LG, Sabine