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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen