Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bereich