beim aktivieren der zelle die farbe ändern
01.03.2005 11:24:58
stefan
bitte helft mir weiter !
Ich bin ein totaler Anfänger und komme hiermit nicht weiter...
Wie kann ich in einem bestimmten Bereich, beim Aktivieren einer Zelle,
die Farbe wechseln (Farbe1)...und beim Verlassen/Wechseln in eine
andere Zelle die (Farbe2), oder die ursprüngliche Farbe,
auswählen/wiederherstellen ?
So ? aber das funktioniert nicht !!!
Die Farbe ändert sich aber bleibt dann auch so. :-((
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
For Each rng In Target.Cells
If rng.Select Then
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Else
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If
Next rng
End Sub
Bitte helft mir weiter, ich möchte nicht dumm sterben!
Gruss Stefan