farbige Zellen
07.02.2007 15:54:38
bernd
Dim myRange As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not myRange Is Nothing Then myRange.Interior.ColorIndex = xlColorIndexNone
Target.Interior.ColorIndex = 37
Set myRange = Target
End Sub
Zur farbigen Markierung der aktiven Zelle.
Problem: Das Kopieren und Einfügen funktioniert aber nicht mehr.
Hat ein User eine Lösung für dieses Problen -
Bedingung: Kopieren und Einfügen ohne "Aus-Schalten" o.g. Makros.
Gruß Bernd