Zellen per Doppelklick einfärben
Um in Excel Zellen hervorzuheben, kann man Ihnen über die Symbolleiste eine Hintergrundfarbe geben. Für größere Bereiche ist das gut, ich will jedoch viele einzelne Zellen herauspicken und markieren. Da dauert mir das Verfahren mit der Symbolleiste zu lange. Gibt es eine Möglichkeit, einzelne Zellen per Doppelklick einzufärben?
Ja, das lässt sich mit Hilfe eines VBA-Makros realisieren, das in Excel eine benutzerdefinierte Funktion erzeugt. Zuständig für die Reaktion auf den Doppelklick ist das Ereignis "BeforeDoubleClick". Um das Makro einzugeben, öffnen Sie den VBA-Editor über die Tastenkombination [Alt]+ [F11]. Im Fenster des Projektmanagers links oben (in seiner Titelleiste steht »Projekt - VBA-Projekt«) klicken Sie zweimal auf den Eintrag »Tabelle 1 (Tabelle 1)«, damit Ihre Funktion nicht gleich in allen Arbeitsblättern landet. Dann geben Sie ins Editor-Fenster folgende Private-Sub-Funktion ein:
Private Sub
Worksheet_BeforeDoubleClick
(ByVal Target As Excel.Range, Cancel As Boolean)
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub
Schließen Sie den VBA-Editor und klicken Sie zweimal in eine Zelle. Sofort färbt sich ihr Hintergrund gelb. Die Farbe bestimmen Sie über ».ColorIndex=«, indem Sie die dort eingetragene Zahl durch eine andere ersetzen. Damit die schwarzen Inhalte der Zelle gut lesbar bleiben, benutzen Sie am besten Farben wie Hellblau (Wert 8), Gelb (Wert 6) oder Grün (Wert 4). Andere Farben sind natürlich ebenfalls möglich, etwa 3=Rot, 5=Blau oder 7=Lila. Die Zeile ».Pattern = xlSolid« legt das Hintergrundmuster fest. So würde ».Pattern = xlCrissCross« zusätzlich zur Farbe die Zelle mit einem Kreuzmuster füllen.