ich benötige ein makro, dass folgendes bewirkt:
wenn ich eine Zelle mit der Mouse markiere (anklicke) soll die Zelle,
5 Spalten links und eine zeile höher rot eingefärbt werden.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Row > 1 And Target.Column > 5 Then
Target.Offset(-1, -5).Interior.ColorIndex = 3
End If
End Sub
Option Explicit
Dim oldRng As Range
Dim oldCol As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
oldRng.Interior.ColorIndex = oldCol
If Target.Column > 5 And Target.Row > 1 Then
Set oldRng = Target.Offset(-1, -5)
oldCol = oldRng.Interior.ColorIndex
oldRng.Interior.ColorIndex = 3
End If
End Sub