Gruppe
Allgemein
Bereich
Bereich
Thema
Zellauswahl auf den ausgewählten Bereich beschränken
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