Aktive Zelle färbt sich nach Einfügen eines Makro automatisch schwarz

[bhollerith]

Hallo wieder mal,

ich habe ein Problem mit meiner Arbeitsmappe.

Wenn ich direkt bei einem Arbeitsblatt nachfolgendes Makro einfüge, färbt sich die Füllung der aktiven Zelle immer schwarz. Egal, welchen Farbcode ich eingebe.

Wenn ich dann auf eine andere Zelle springe, färbt die vorherige Zelle sich wieder wie gewollt mit der ursprünglichen Farbe und die nun aktive Zelle wird schwarz.

Irgendwo habe ich einen Fehler drin oder evtl. auch direkt in Excel unwissentlich einen Fehler eingebaut. Bzw. in den Einstellungen versehentlich was verstellt.

Alle anderen Arbeitsblätter ohne das unten angeführte Makro bleiben wie immer. Nur färbt sich die aktive Zelle gar nicht anders.

Kann mir wer helfen?    

Besten Dank   Bernie   Private



Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo Fehler

Cells.FormatConditions.Delete

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _ Formula1:="="
Selection.FormatConditions(1).Interior.Color = 6   'Hier steht der Farbcode, trotz Änderung wird die aktive Zelle immer schwarz gefüllt
Err.Clear

Fehler:

If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear

End Sub

[size=xx-small]

Sorry. Ganz am Anfang hab ich vergessen, das Private mitzukopieren.

Die erste Zeile heißt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)