aktive Zelle farblich
01.10.2013 08:37:32
Andreas
ich muss verschieden Zahlen aus einer Exceltabelle in unterschiedlicher Zellen raussuchen.Zur besseren Übersicht wird die aktuelle Zelle farblich dargestellt.
Dieses wird durch diesen Code realisiert
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fehler
Cells.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="="
' hier Farbe einstellbar
Selection.FormatConditions(1).Interior.Color = 255
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Rückgängigkeitsfunktion ausführen kann.
Ich weiss nun nicht, ob der Code falsch ist (habe ich hier im Forum bekonmmen)
oder ob es eine andere Möglichkeit gibt, um aktive Zellen farblich darzusellen.
Vielleicht kennt jemand dieses Problem und kann mir auf die Sprünge helfen.
Über Hilfe würde ich mich freuen.
Andreas