Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Sheets über Listbox einblenden

Alle Sheets über Listbox einblenden
12.03.2008 20:40:06
Heinz
Hallo Leute
Ich habe eine UF mit Listbox zum einblenden von einzelnen Sheet.
Ich möchte aber zusätzlich eine Listbox zum einblenden aller vorhandenen Sheets haben.
Könnte mir bitte dazu jemand weiterhelfen.
Gruß Heinz

Private Sub ListBox1_Click()
If ListBox1.Text = "Mündungen" Then
Sheets("Mündungen").Visible = True
Sheets("Mündungen").Activate
Unload Me
End If
If ListBox1.Text = "Farbe" Then
Sheets("Farbe").Visible = True
Sheets("Farbe").Activate
Unload Me
End If
If ListBox1.Text = "Packmaterial" Then
Sheets("Packmaterial").Visible = True
Sheets("Packmaterial").Activate
Unload Me
End If
If ListBox1.Text = "Schrumpfmaterial" Then
Sheets("Schrumpfmaterial").Visible = True
Sheets("Schrumpfmaterial").Activate
Unload Me
End If
If ListBox1.Text = "Palette" Then
Sheets("Palette").Visible = True
Sheets("Palette").Activate
Unload Me
End If
If ListBox1.Text = "Verpackungsart" Then
Sheets("Verpackungsart").Visible = True
Sheets("Verpackungsart").Activate
Unload Me
End If
If ListBox1.Text = "Layout" Then
Sheets("Layout").Visible = True
Sheets("Layout").Activate
Unload Me
End If
If ListBox1.Text = "Vorschlag" Then
Sheets("Vorschlag").Visible = True
Sheets("Vorschlag").Activate
Unload Me
End If
End Sub




Private Sub UserForm_Initialize()
ListBox1.AddItem "Vorschlag"
ListBox1.AddItem "Mündungen"
ListBox1.AddItem "Farbe"
ListBox1.AddItem "Packmaterial"
ListBox1.AddItem "Schrumpfmaterial"
ListBox1.AddItem "Palette"
ListBox1.AddItem "Verpackungsart"
ListBox1.AddItem "Layout"
End Sub


5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Sheets über Listbox einblenden
12.03.2008 20:52:37
Worti
Hallo Heinz,
in UserForm_Initialize den Eintrag Alle ergänzen und dann so:


Private Sub ListBox1_Click()
Dim ws As Worksheet
If ListBox1.Text = "Alle" Then
   For Each ws In ThisWorkbook.Worksheets
   ws.Visible = True
   Worksheets(1).Activate
   Next ws
   Unload Me
End If
If ListBox1.Text = "Mündungen" Then
Sheets("Mündungen").Visible = True
Sheets("Mündungen").Activate
Unload Me
End If
If ListBox1.Text = "Farbe" Then
Sheets("Farbe").Visible = True
Sheets("Farbe").Activate
Unload Me
End If
If ListBox1.Text = "Packmaterial" Then
Sheets("Packmaterial").Visible = True
Sheets("Packmaterial").Activate
Unload Me
End If
If ListBox1.Text = "Schrumpfmaterial" Then
Sheets("Schrumpfmaterial").Visible = True
Sheets("Schrumpfmaterial").Activate
Unload Me
End If
If ListBox1.Text = "Palette" Then
Sheets("Palette").Visible = True
Sheets("Palette").Activate
Unload Me
End If
If ListBox1.Text = "Verpackungsart" Then
Sheets("Verpackungsart").Visible = True
Sheets("Verpackungsart").Activate
Unload Me
End If
If ListBox1.Text = "Layout" Then
Sheets("Layout").Visible = True
Sheets("Layout").Activate
Unload Me
End If
If ListBox1.Text = "Vorschlag" Then
Sheets("Vorschlag").Visible = True
Sheets("Vorschlag").Activate
Unload Me
End If
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem "Alle"
ListBox1.AddItem "Vorschlag"
ListBox1.AddItem "Mündungen"
ListBox1.AddItem "Farbe"
ListBox1.AddItem "Packmaterial"
ListBox1.AddItem "Schrumpfmaterial"
ListBox1.AddItem "Palette"
ListBox1.AddItem "Verpackungsart"
ListBox1.AddItem "Layout"
End Sub


Gruß Worti
Anzeige
AW: Alle Sheets über Listbox einblenden
12.03.2008 20:56:00
Heinz
Hallo Worti
Funkt. super.
Recht herzlichen Dank.
Gruß Heinz

AW: Gruselcode
12.03.2008 22:21:30
Daniel
Hallo Heinz
Warum machst du dir so viel Arbeit?
Dieser Code für Listbox1.Click reicht doch völlig aus:

Private Sub ListBox1_Click()
Dim ws As Worksheet
If ListBox1.Text = "Alle" Then
For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Worksheets(1).Activate
Next ws
else
Sheets(Listbox1.text).visible = true
Sheets(Listbox1.text).activate
End If
Unload Me
End Sub


Gruß, Daniel

AW: Gruselcode
13.03.2008 05:38:00
Heinz
Hallo Daniel
Nur bei "Alle einblenden" bekomme ich in der Zeile
" Sheets(ListBox1.Text).Visible = True "
Den Fehler 9 "Index außerhalb des gültigen Bereichs"
Einzelne Sheet einblenden funktioniert.
Danke & Gruß Heinz

Anzeige
AW: Gruselcode
13.03.2008 05:47:00
Heinz
Hallo Daniel
Habe den Fehler jetzt doch selber gefunden .
in "If ListBox1.Text = "Alle" Then"
Hatt nur auf "If ListBox1.Text = "Alle Einblenden" Then"
Geändert gehört.
Recht herzlichen Dank, für Deine Vereinfachung.
Ja,Ja Gewusst Wie !!
Gruß Heinz

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige