Aktive Zelle farblich - Speichern
04.08.2005 13:38:04
Helge
Ich möchte gerne in einer Tabelle immer die aktive Zelle farblich hervorheben und nach dem Verlassen der Zelle solle die ursprüngliche Farbe hergestellt werden. Soweit so gut - siehe Beispiel.
Nun möchte ich aber verhindern, dass beim Abspeichern die aktive Zelle (also mit der Farbe) so gespeichert wird. Das würde ja dazu führen, dass beim erneuten Öffnen eine nicht aktive Zelle farblich gestaltet ist. Hoffe, das war verständlich...
Beispiel:
Dim lastcell As Range
Dim farbe As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
ActiveSheet.Unprotect
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 22
Set lastcell = Target
ActiveSheet.Protect
End Sub
Anzeige