Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellauswahl auf den ausgewählten Bereich beschränken

Gruppe

Bereich

Problem

Wie kann ich das Auswählen von Zellen auf den ausgewählten Bereich beschränken und diese Beschränkung auf Kommando wieder rückgängig machen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: Tabelle1

Private Sub cmdBegrenzung_Click()
  With cmdBegrenzung
    If .Caption = "Auswahl begrenzen" Then
      .Caption = "Begrenzung aufheben"
    Else
      .Caption = "Auswahl begrenzen"
    End If
  End With
  Call Begrenzung
End Sub

StandardModule: basMain

Sub Begrenzung()
  If ActiveSheet.ScrollArea = "" Then
    Cells.Interior.ColorIndex = 51
    Selection.Interior.ColorIndex = xlColorIndexNone
    ActiveSheet.ScrollArea = Selection.Address
  Else
    ActiveSheet.ScrollArea = ""
    Cells.Interior.ColorIndex = xlColorIndexNone
  End If
End Sub