Aktive Zelle einfärben...
03.06.2004 15:54:18
bags
habe hier aus dem Forum folgenden Code um eine aktive Zelle einzufärben:
Public grng As Range
Public isect As Range
Public giOld, giNew, giIsect
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
giNew = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 10
grng.Interior.ColorIndex = giOld
Set isect = Application.Intersect(Target, grng)
If isect Is Nothing Then
grng.Interior.ColorIndex = giIsect
Else
giIsect = isect.Interior.ColorIndex
isect.Interior.ColorIndex = 10
End If
giOld = giNew
Set grng = Target
End Sub
Wie erreiche ich es jetzt aber, dass dieser Code in jeder geöffneten Arbeitsmappe ausgeführt wird?
Ich habe den Code in meine PERSONL.xls eingefügt in der noch einige andere Codes laufen. Diese anderen Codes funktionieren auch in jeder geöffneten Mappe. Allerdings der zum Zellen einfärben nicht....
Weiß jemand eine Lösung?