Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Scrollbereich begrenzen

Gruppe

Ansicht

Problem

Wie kann ich den Bewegungsraum des Cursors einschränken?

Lösung
Den nachstehenden Code in die "Personl.xls" einfügen und einer Symbolleistenschaltfläche zuweisen.

ClassModule: Tabelle1

Private Sub cmdBegrenzung_Click()
   If ActiveSheet.ScrollArea = "" Then
      Cells.Interior.ColorIndex = 15
      Selection.Interior.ColorIndex = xlColorIndexNone
      ActiveSheet.ScrollArea = Selection.Address
   Else
      ActiveSheet.ScrollArea = ""
      Cells.Interior.ColorIndex = xlColorIndexNone
   End If
End Sub