Gruppe
Allgemein
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?
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