Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldSel As Range
If Not OldSel Is Nothing Then
If Not Intersect(OldSel, Range("A1")) Is Nothing Then
Range("B1").Interior.Color = Range("A1").Interior.Color
End If
End If
Set OldSel = Target
End Sub
Gruß Gerd
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldSel As Range
Dim C As Range
If Not OldSel Is Nothing Then
If Not Intersect(OldSel, Range("C10:C100")) Is Nothing Then
For Each C In Intersect(OldSel, Range("C10:C100"))
C.Offset(0, 1).Interior.Color = C.Interior.Color
Next
End If
End If
Set OldSel = Target
End Sub