Gruppe
Ereignis
Problem
Wie kann ich das Auswählen eines bestimmten Zellbereiches verhindern?
ClassModule: Tabelle12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("A1:E10"), _
Range(Target.Address)) _
Is Nothing Then
Range("F1").Select
Beep
MsgBox "Danger, sacra, hob i g'soagt!", , _
Application.UserName
End If
End Sub