active celle farbig
03.01.2010 15:09:44
Ralf
Hallo nochmal
habe hier einen code gefunden der fast OK ist aber leider nur fast
ich möchte gerne die active celle farbig hinterlegen aber nur so lange wie sie active ist !
bei dem code den ich gefunden habe bleibt die celle dann so auch wenn ich sie verlasse
kann man den code umschreiben oder ist mein wunsch gar nicht machbar ?
oder kann man den code so schreiben das wenn celle verlassen wird dann wieder farbe farblos oder so ähnlich
mit besten grüßen
Option Explicit
Dim lastcell As Range
Dim farbe As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
Set lastcell = Target
End Sub