Thema: Zeilen und Spalten über ein Drehfeld ein- und ausblenden

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

Beiträge aus dem Excel-Forum zu den Themen Dialog und SpinButton