Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
928to932
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
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblätter im Formular auflisten

Tabellenblätter im Formular auflisten
27.11.2007 09:32:36
Andre´
Hallo alle zusammen,
ich habe eine Arbeitsmappe wo viele Tabellenblätter durch xlVeryHidden ausgeblendet sind. Nun möchte ich über ein Formular Aufruf erreichen, dass alle vorhandenen Blätter angezeigt werden und dass die Möglichkeit besteht einzelne Tabellenblätter einzublenden und wieder auszublenden.
Hat dafür jemand einen Code auf Lager
Bin für jeden Tipp dankbar!
MFG Andre

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter im Formular auflisten
27.11.2007 11:49:32
Andre´
Hallo Tino,
erstmals Danke für den Tipp, der Ansatz ist nicht verkehrt.
Doch ich habe mitunter über 35 Tabellenblätter in einer Datei und das Makro soll auch in anderen Dateien angewendet werden. Jetzt müsste ich speziell das Makro immer anpassen (Tabellenblattname u.s.w.).
Das Makro sollte eigentlich im Formular alle enthaltenen Tabellenblätter der Datei zur Auswahl anzeigen/ einlesen die dann ein- oder ausgeblendet werden könnten.
Ich hoffe es gibt dafür eine Lösung!
MFG Andre

Anzeige
AW: Tabellenblätter im Formular auflisten
27.11.2007 12:42:00
Tino
Hallo,
mach es doch so.
Erstelle entsprechend viele Checkboxen (Bsp. 35), blende diese Standardmäßig aus.
Anhand der Anzahl Tabellenblätter die sich in deiner Mappe befinden, blendest du nur die nötigen ein und vergibst den Namen der Blätter als Anzeigetext an die Checkbox.
Hier mal ein Beispiel. (Blatt Standart muss an erster stelle stehen)
Ein Tabellenblatt kannst du noch hinzufügen.
https://www.herber.de/bbs/user/48084.xls
Gruß
Tino

AW: Tabellenblätter im Formular auflisten
27.11.2007 13:28:54
Andre´
Hallo Tino,
danke für den Tipp ich werde es wohl so realisieren.
Ich lasse den Beitrag offen vielleicht gibt es doch noch eine andere Lösung.
MFG Andre

Anzeige
AW: Tabellenblätter im Formular auflisten
27.11.2007 19:41:18
Daniel
HI
ok, hier ne andere Lösung, passt sich individuell auf die aktuelle Tabelle an.
die Userform gilt für die Datei, die gerade aktiv ist, wenn die Userform geöffnet wird.
https://www.herber.de/bbs/user/48099.xls
Gruß, Daniel

AW: Tabellenblätter im Formular auflisten
27.11.2007 20:18:33
Andre´
Hallo Daniel,
danke für deine Meldung das sieht ja sehr gut aus.
Geht es auch so, dass die Tabellenblätter über xlVeryHidden ausgeblendet werden.
Also nicht über Format, Blatt, Einblenden sichtbar sind.
MFG Andre

AW: Tabellenblätter im Formular auflisten
27.11.2007 20:45:00
Daniel
Hi
das geht sicherlich auch
du kannst dann halt nicht mehr so einfach mit

sheets().visible = Listbox1.Selected()


arbeiten, sondern musst das dann immer mit einer IF-THEN-Abfrage umschreiben in diesem Stil:


IF Listbox1.Selected() = True then
sheets().visible = xlvisible
else
sheets().visible = xlveryhidden
end if


gruß, Daniel

Anzeige
AW: Tabellenblätter im Formular auflisten
27.11.2007 21:24:00
Andre´
Hi Daniel,
bekomme es nicht hin :-(((
Kannst Du bitte etwas genauer auf Dein Codebeispiel eingehen.
Vielen Dank im Voraus!
MFG Andre

AW: Tabellenblätter im Formular auflisten
27.11.2007 21:42:00
Daniel
HI
die Codes so abändern:

Private Sub ListBox1_change()
If NichtAusführen Then Exit Sub
Dim i As Integer
On Error GoTo Fehler
For i = 0 To ListBox1.ListCount - 1
With wb.Sheets(ListBox1.List(i))
If Not (.Visible = xlSheetVisible And ListBox1.Selected(i) = True) Then
If ListBox1.Selected(i) = True Then
.Visible = xlSheetVisible
Else
.Visible = xlSheetVeryHidden
End If
End If
End With
Next
Fehler:
If Err  0 Then ListBox1.Selected(i) = True
On Error GoTo 0
End Sub



Private Sub UserForm_Activate()
Dim sh As Worksheet
Set wb = ActiveWorkbook
ListBox1.Clear
NichtAusführen = True
For Each sh In ActiveWorkbook.Worksheets
ListBox1.AddItem sh.Name
ListBox1.Selected(ListBox1.ListCount - 1) = (sh.Visible = xlSheetVisible)
Next
UserForm1.Height = 45 + 13 * ListBox1.ListCount
ListBox1.Height = 4 + 13 * ListBox1.ListCount
NichtAusführen = False
End Sub


Gruß,Daniel

Anzeige
Vielen Vielen DANK! funzt prima :-)))
27.11.2007 21:48:00
Andre´

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige