Private Sub Worksheet_SelectionChange(ByVal Target As Range)
einen Bereich einstellen der aktiv ist zB. "A1:B20"
Besten Dank
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:B20")) Is Nothing Then
'Code
End If
End Sub