Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Auswahl eines Zellbereiches verhindern

Gruppe

SelectionChange

Problem

Wie kann ich das Auswählen eines bestimmten Zellbereiches verhindern?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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