Das Archiv des Excel-Forums

Tabellenblätter aus ListBox ein- und ausblenden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox UserForm


Excel-Version: 97
nach unten

Betrifft: Tabellenblätter aus ListBox ein- und ausblenden
von: Dirk
Geschrieben am: 17.04.2002 - 10:18:26

Hallo,
Ich habe eine Userform mit einer Listbox in der alle eingeblendeten Tabellenblätter und eine Listbox in der alle ausgeblendeten Tabellenblätter enthalten sind. Nun möchte ich per Mausklick auf ein Tabellenblattname in einer der Listboxen das entsprechende Blatt ein- bzw. ausblenden.
Kann mir jemand dabei helfen ?

Danke und Gruss, Dirk


nach oben   nach unten

Re: Tabellenblätter aus ListBox ein- und ausblenden
von: Fredi
Geschrieben am: 17.04.2002 - 10:35:09

Hallo Dirk Ich habe das Ereignis beim Doppelklick genommen. Die Listenfelder heissen "lstSichtbar" und "lstUnsichtbar". Die SubProzedur zum wieder aktualisieren heisst "ListenFuellen()". Diese wird beim Initialisieren des Forms und beim Doppelklick auf eine Liste ausgeführt. Gib mir bitte bescheid, ob es funktioniert hat. Private Sub lstSichtbar_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim ws As Worksheet If Me.lstSichtbar.ListCount < 2 Then Exit Sub Set ws = ActiveWorkbook.Worksheets(Me.lstSichtbar.Value) ws.Visible = xlSheetHidden ListenFuellen End Sub Private Sub lstUnsichtbar_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim ws As Worksheet Set ws = ActiveWorkbook.Worksheets(Me.lstUnsichtbar.Value) ws.Visible = xlSheetVisible ListenFuellen End Sub Sub ListenFuellen() Dim wb As Workbook, ws As Worksheet Set wb = Application.ActiveWorkbook Me.lstSichtbar.Clear Me.lstUnsichtbar.Clear For Each ws In wb.Worksheets If ws.Visible = xlSheetVisible Then Me.lstSichtbar.AddItem (ws.Name) Else Me.lstUnsichtbar.AddItem (ws.Name) End If Next ws End Sub

nach oben   nach unten

Re: Tabellenblätter aus ListBox ein- und ausblenden
von: Dirk
Geschrieben am: 17.04.2002 - 13:36:54

Hallo Fredi, hat super geklappt. Vielen Dank. Ich hätte das selbst nicht hinbekommen. Hast Du einen Buchtip, der das Thema verständlich behandelt ?? Gruss, Dirk

 nach oben

Excel-Beispiele zum Thema "Tabellenblätter aus ListBox ein- und ausblenden"
Mehrfachauswahl aus ListBox auslesen Gefilterte Daten in eine ListBox einlesen
Dateien aus Listbox auslesen und öffnen Listbox-Eintrag durch Mausbewegung markieren
ListBox-Einträge auswechseln Horizontal angeordnete Elemente in eine ListBox übernehmen
Tabellenblattnamen in eine ListBox einlesen ListBox bei Eintrag erweitern
Fehlermeldung #NV ausblenden Spalten einer Mehrbereichsauswahl ausblenden.