Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeilen und Spalten über ein Drehfeld ein- und ausblenden

Gruppe

SpinButton

Problem

Wie kann ich das Aus- und Einblenden von Zeilen und Spalten über ein Drehfeld steuern (Excel-Version XL8)?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub spnRows_Change()
   ActiveCell.Select
   If spnRows.Value = 0 Then
      Rows("1:20").Hidden = False
   Else
      Rows("1:" & spnRows.Value).Hidden = True
      Rows(spnRows.Value + 1 & ":20").Hidden = False
   End If
End Sub

Private Sub spnColumns_Change()
   ActiveCell.Select
   If spnColumns.Value = 0 Then
      Columns("A:Z").Hidden = False
   Else
      Range(Cells(1, 1), Cells(1, spnColumns.Value)). _
         EntireColumn.Hidden = True
      Range(Cells(1, spnColumns.Value + 1), Cells(1, 256)). _
         EntireColumn.Hidden = False
   End If
End Sub