HERBERS Excel-Forum - die Beispiele

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

Home

Gruppe

Dialog

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

xlDialogInsertHyperlink.show Arbeitmappen über Dialogfeld zusammen fassen
5.0 Dialog Spinbutton in UF und Textbox
Speichern unter Dialog in Word aufrufen inkl. Pfad Druckerdialog
Dateityp im "Speichern unter"-Dialog vorgeben Makro stoppen, wenn Excel-Dialog?
xlDialogOpen anpassen Klick in definierten Rangebereich startet Dialog
xlDialogOpen bei Excel 2007 funzt nicht FileDialog inkl. Anklicken von Desktop, Eigene D.
Grösse Dialogfenster der InputBox SpinButton Uhrzeit
Dialogfeld unterdrücken Dialog "permanently delete sheets" unterbinden
Makroaufruf bei Wertänderung durch SpinButton Filter über Spinbutton
Format-Dialog funktioniert nicht mehr Dialog "Verknüpfung aktualisieren"
Ordnerdialog und Dateidialog Ordnerdialog und dateidialog
Ordnerdialog und Dateidialog Filedialog
Spinbutton.Value Herber/Beispiele/Dialoge/Checkbox/137601
Bilder bei Click im Dialogfeld Suchdialog über VBA aufrufen
mit Wert aus Combobox Dialog öffnen Diagramm als Grafik mit Speicherdialog exportieren
Dialogfenster zum kopieren FileDialog-Objekt unter O2k
Abrage von Dialogfeldargumenten Datei Auswählen Dialog (Application.FileDialog)
xlDialogOpen/FindFile ohne Open Dialogfeld zum pdf öffnen
Spinbutton Dialogfeld schließen, wenn Benutzer nichts eingibt
Spinbutton / Scrollarea Spinbutton
Problem mit ApplicationDialogs Das Dialogfeld "sortieren" aufrufen?
Keine Dialogbox bei SaveAs SpinButton
Dialogbox SpinButton - wenn max dann von vorne
Bei xlDialogSaveAs Dateinamen vorgeben Spinbutton
Blattauswahldialog... speichern unter dialogbox problem