Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "D3" Then Target = "Test"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "D3" Then Target = "Test"
End Sub
If Not Intersect(Target, Range("D3:D12")) Is Nothing Then Target = "Test"
Gruß MatthiasPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D3:D12")) Is Nothing Then
Intersect(Target, Range("D3:D12")) = "Test"
End If
End Sub
Gruß Gerd