Egal wie es ist Danke für eure Hilfe.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fehler
Const APPNAME = "Worksheet_SelectionChange"
Dim RNG As Range
'Bereich festlegen, wo das geschehen soll
Set RNG = Range("A1:C20")
If Not Intersect(RNG, Target) Is Nothing Then
Target.Value = Target.Value
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number <> 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub