VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeilen und Spalten über ein Drehfeld ein- und ausblenden

Gruppe

Dialog

Bereich

SpinButton

Thema

Zeilen und Spalten über ein Drehfeld ein- und ausblenden

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

    


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