Ich möchte folgendes: Bei einer aktiven Zelle sollte die Schriftfarbe von weiss nach schwarz wechseln (aktive Zelle immer schwarz, nicht aktive Zelle weiss).
Ich habe einen Codeschnipsel gefunden, der das macht:
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Static xLastRng As Range
On Error Resume Next
Target.Font.ColorIndex = 1
xLastRng.Font.ColorIndex = 2
Set xLastRng = Target
End Sub
Mein Problem: Ich möchte, dass dieses Verhalten nur in den Spalten D:G ausgeführt werden und nicht auf der ganzen Tabelle. Auf den nicht im Range aufgeführten Spalten soll die Schrift immer schwarz sein. Wie muss ich das definieren ?Yves