aktive Zelle einfärben, aber keine Bedingte Formatierung funktioniert mehr

[Froschi]

Hallo nabend

Ich benötige Eure Hilfe, ich habe schon mehrere Makros ausprobiert um die aktive Zelle farbig darzustellen.
Das funktioniert auch sehr gut, ich kann die Zellen zusätzlich auch farbig befüllen, wie auch die Schrift farbig hinterlegen.
Leider gehen mir die Bedingten Formatierungen verloren, ich kann auch keine neue erstellen.

Ich habe noch keine gr. Erfahrung mit Makro schreiben, daher würde ich mich sehr freuen, wenn Ihr mir helfen könntet.

Mein bisheriges Makro, ich hab über die Bedingte Formatierung eine Regel hinterlegt: Zellwert ungleich ="=" - farbige Zelle
dann das Makro 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Application.CutCopyMode = False Then Application.Calculate

End Sub


bzw. wenn Ihr einen besseren Vorschlag habt, bitte schickt ihn mir, ich würde mich sehr freuen, vielen Dank