VBA und bedingte Formatierung
12.08.2020 21:53:22
Adil
ich fang dann mal an. Ich wurde darum gebeten, in Excel eine Tabelle zu erstellen, bei dem der Anwender folgendes haben möchte:
1. Sobald getippt wird, soll die Zelle eine Farbe erhalten.
2. Jede Zelle soll mit einem Doppelklick die Farbe ändern - beim zweiten Doppelklick soll die Zelle eine andere Farbe annehmen. Es werden nur die zwei Farben benötigt.
Bezüglich 1. habe ich herausgefunden, dass dies am besten mit der bedingten Formatierung funktionert. Und zwar sieht das dann so aus: Bedingte Formatierung > Neue Regel > Nur eindeutige oder doppelte Werte formatieren > eindeutige Auswählen und unter Formatieren eine Farbe auswählen.
Hoffe das war so verständlich. Das funktioniert auch soweit.
Bei 2. habe ich gelesen, dass dies nur mit VBA zu bewältigen geht. Habe im Internet folgendes gefunden:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Interior.ColorIndex = 3 Then
ActiveCell.Interior.ColorIndex = 10
Else
ActiveCell.Interior.ColorIndex = 3
End If
End Sub
Mein Problem ist allerdings, dass beides gemeinsam nicht greift.
Tippe ich etwas, wird die Zelle automatisch gefärbt. Wenn ich die durch die bedingte Formatierung gefäbrte Zelle doppelklicke, greift der Code oben nicht.
Könnt ihr mir da weiterhelfen?