AW: Aktive Zelle farbig?
17.11.2003 12:08:58
Michael Brueggemann
Hallo Ralf,
versuch' 'mal dies (hinter dem entsprechenden Sheet hinterlegen):
Public rngPreviousRange As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lngColorIndex, lngPattern, lngPatternColorIndex As Long
' wenn sich der Cursor im Bereich A1:D40 befindet, dann ...
If Not Application.Intersect(Target, Range("$A$1:$D$40")) Is Nothing Then
' Attribute der aktiven Zelle merken
With Target.Interior
lngColorIndex = .ColorIndex
lngPattern = .Pattern
lngPatternColorIndex = .PatternColorIndex = xlAutomatic
End With
' Attribute der aktiven Zelle setzen
With Target.Interior
.ColorIndex = 44
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
' wenn Attribute der vorherigen Markierung
' zurueckgesetzt werden muessen, dann ...
If Not rngPreviousRange Is Nothing Then
' Attribute auf die gemerkten Werte zuruecksetzen
With rngPreviousRange.Interior
.ColorIndex = lngColorIndex
.Pattern = lngPattern
.PatternColorIndex = lngPatternColorIndex
End With
End If
' aktuelle Markierung in vorherige Markierung sichern
Set rngPreviousRange = Target
End If
End Sub
CIAO
Michael