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
1468to1472
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Über Listbox sichtbare Tabellenblätter wählen

Über Listbox sichtbare Tabellenblätter wählen
21.01.2016 14:06:01
Henny
Hallo Zusammen,
ich habe eine UserForm über die ich eine Reihe von Auswahlen treffen kann. U.a gibt es zwei Optionbuttons für die Sprache (Englisch und Deutsch). Wähle ich Deutsch erscheint in der Listbox1 (auch in der UserForm) eine Reihe von deutschen Bezeichnungen. Wählt man Englisch erscheinen die Begriffe in Englisch in der Listbox. Die Auswahl der Listbox ist auf 3 Einträge begrenzt (mulitselect).
Nun zu meinem Problem: Für jeden der Begriffe (Bsp: Akkupacks, Halbleiter etc.) gibt es ein Tabellenblatt (mit gleichem Namen!). Ich möchte nun über die Auswahl in der Listbox auswählen, welche Tabellenblätter sichtbar ist.
Ich denke es müsste etwas in der Art sein: 
Private Sub ListBox1_Click()
With Sheets(ListBox1.Text)
.Visible = True
.Select
End With
Unload Me
End Sub
Vorab Danke für die Hilfe
Henny

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Über Listbox sichtbare Tabellenblätter wählen
21.01.2016 14:37:12
Werner
Hallo Henry,
Versuch mal
Dim x As Long
With Me.ListBox1
For x = 0 To .ListCount - 1
Sheets(.List(x)).Visible = IIf(.Selected(x), True, False)
Next x
End With
Welches Ereignis der Listbox zum Auslösen des Makros du verwenden willst musst du selbst entscheiden.
Gruß Werner

AW: Über Listbox sichtbare Tabellenblätter wählen
21.01.2016 19:17:56
Henny
Hallo Werner,
Danke für die schnelle Antwort, klappt aber leider nicht.
In der Zeile Sheets(.List(x)).Visible = IIf(.Selected(x), True, False)
kommt Laufzeifehler #9 "Index außerhalb des gültigen Bereichs".
Sonst noch eine Idee? Kann doch eigentlich nicht so schwer sein. Vielleicht geht es auch direkt über den Index (Bsp If Index = 1 Then Tabelle1.Visible = True)
Ich bin am Ende mit meinem VBA Latein :D

Anzeige
AW: Über Listbox sichtbare Tabellenblätter wählen
21.01.2016 20:33:48
Werner
Hallo Henry,
eine Vermutung, dass es mit deinen "Sprachversionen" zusammen hängt. Beispiel: Du hast Englisch ausgewählt, in deiner Listbox steht als Tabellenblattname "Seven" tatsächlich hat das Tabellenblatt aber den Namen "Sieben" dann läufst du in den Laufzeitfehler 9 weil das Tabellenblatt nicht gefunden wird.
Gruß Werner

AW: Über Listbox sichtbare Tabellenblätter wählen
21.01.2016 23:32:28
Henny
Hallo Werner,
Ich habe es auch in einem andern Worksheet versucht. da kommt der selbe Fehler :(
Blöd dass es bei Tabellenblattern nicht auch die Unterscheidung zwischen Name und Caption gibt.
Hast du noch eine Alternative wie ich es probieren könnte ?

Anzeige
AW: Über Listbox sichtbare Tabellenblätter wählen
22.01.2016 09:21:38
Werner
Hallo Henny,
stell doch mal deine Datei hier ein.
Gruß Werner

AW: Über Listbox sichtbare Tabellenblätter wählen
22.01.2016 12:44:01
Werner
Hallo Henny,
ich hab jetzt mal eine Testdatei angelegt. Beim Start der Userform (Schaltfläche auf Tabellenblatt1) wird die Userform geöffnet. Auf der Userform befindet sich eine Listbox in die nur die Tabellenblätter eingelesen werden, die ausgeblendet sind. Bei Auswahl von Tabellenblatt/Tabellenblättern in der Listbox und klick auf OK werden diese eingeblendet.
https://www.herber.de/bbs/user/102959.xlsm
Gruß Werner

AW: Über Listbox sichtbare Tabellenblätter wählen
22.01.2016 13:29:35
Henny
Hallo Werner,
der Unterschied ist, dass deine Listbox direkt die Name der Tabellenblätter anzieht.
Ich schreibe in die Listbox definierte Namen (die den Namen der Tabellenblättern zwar entspricht aber anscheinend doch einen Unterschied machen)
Habe dir mal soeine Datei zusammengebaut.
https://www.herber.de/bbs/user/102960.xlsm
Kurze Erkläuterung:
Optionbutton Deutsch schreibt definierte Werte (entsprechen den Tabellenblätternamen, sind aber selbst definiert worden) in die Listbox und nennt gleichzeitig die Tabellenblätter um.
Optionbutton Englisch macht das gleiche auf Englisch.
Die Auswahl der Listbox ist auf 3 begrenzt.
Nochmal mein Anliegen:
Je nach Sprache ändert sich die Auswahliste in der Listbox. Ich möchte das beim Anklicken der Werte in der Listbox automatisch nach dem Tabellenblatt gesucht wird, welches diesen Namen hat und es dann sichtbar machen.
Hintergrund: Die Tabellenblätter enthalten Fragen zu spezifischen Themen. Diese Themen werden in der Listbox (in der jeweiligen Sprache) aufgelistet.
Vielen Dank für dein Engagement.
Henny

Anzeige
AW: Über Listbox sichtbare Tabellenblätter wählen
24.01.2016 21:33:05
Henny
Hallo Werner,
so hab ichs jetzt übernommen. Vielen Dank nochmal für die Unterstützung!
Gruß Henny

AW: Danke für die Rückmeldung. o.w.T.
24.01.2016 21:49:00
Werner

AW: Danke für die Rückmeldung. o.w.T.
25.01.2016 11:14:39
Henny
Hallo Werner,
hast du auch noch eine Lösung wie die Tabellenblätter immer am Ende angezeigt werden?
Wenn ich sie hinzufüge werden sie vorne eingefügt.
Danke!
Henny

AW: Danke für die Rückmeldung. o.w.T.
25.01.2016 11:38:12
Werner
Hallo Henny,
meinst du neue Blätter per VBA am Ende erstellen?
Dann so: Sheets.Add After:=Sheets(Sheets.Count)
Gruß Werner

Anzeige
AW: Danke für die Rückmeldung. o.w.T.
25.01.2016 12:51:02
Henny
Hallo Werner,
die Tabellenblätter habe ich ja schon erstellt. Nur wenn ich sie jetzt über die Listbox auswähle dann werden sie vorne angezeigt. Ich haben 3 Tabellenblätter die immer angezeigt werden müssen. Und diese möchte ich gern am Anfang haben. Mich wundert es zwar, dass das nicht automatisch erfolgt (die 3 Tabellenblätter sind Tabelle 1, Tabelle2 und Tabelle3) aber vermutlich wird da irgendwie der index geändert. Im VBA Editor sind die Tabellenblätter auch komplett durcheinander.

AW: Danke für die Rückmeldung. o.w.T.
25.01.2016 13:20:25
Werner
Hallo Henny,
du kannst doch deine Tabellenblätter völlig frei nach deinen Bedürfnissen ordnen.
Rechtsklick auf den Tabellenblattreiter - kopieren oder verschieben.
Gruß Werner

Anzeige
AW: Danke für die Rückmeldung. o.w.T.
25.01.2016 15:17:27
Henny
Hallo Werner, ja das kann ich. Aber das ganze wird eine Vorlage für Kollegen und da darf beim hinzufügen von neuen Tabellenblättern (nur sichtbarkeit geändert) nicht das Deckblatt an 4. Stelle auftreten.

AW: Danke für die Rückmeldung. o.w.T.
25.01.2016 16:41:12
Werner
Hallo Henny,
also das wäre jetzt stochern im Nebel. Deine Testdatei, die du hochgeladen hattest, mit sämtlichen Code darin (incl. meinem) verändert absolut nichts an der Reihenfolge der Tabellenblätter. Solltest du in deiner Originaldatei weitere Makros drin haben, dann wären wir, wie bereits gesagt, beim Stochern im Nebel.
Weiter stellt sich die Frage, wie werden denn die neuen Blätter hinzugefügt, händisch durch Klick auf das Plus nach den Tabellenblattreiter? Dann wird das neue Blatt doch eh am Ende der bereits bestehenden Blättern angefügt.
Wenn in deiner Datei was durcheinander ist dann lege doch einfach mal eine neue, leere Datei an mit so vielen Blättern wie du brauchst. Dann benennt du die Blätter der neuen Datei nach deinen Bedürfnissen um. Anschließend kopiert du einfach Blatt für Blatt die Daten und Formatierungen der Originaldatei in die leeren Blätter der neuen Datei. Dann noch den VBA-Code in die neue Datei kopieren und gut sollte es sein.
Gruß Werner
Anzeige

299 Forumthreads zu ähnlichen Themen

Sichtbarkeit Textfeld abhängig von Formelergebnis
Formelergebnis

Hallo Leute,
in Abhängigkeit von dem Ergebnis einer Formelberechnung (kein VBA, da Makros auf Firmen-PC nicht geduldet sind) soll immer dann ein Textfeld angezeigt werden wenn bestimmte Kriterien erfüllt sind; andererseits soll das Textfeld ausgeblendet sein.
Ich kann mir vorstellen das...
27.10.2008 08:51:00
Thread-ID: 1019524
7 Beiträge
Anzeige
workbooks zählen nur sichtbare
chris

Hallo und guten morgen VBA experten,
ich habe eine frage.Würde mich sehr über Hilfe freuen.
ich will ein Makro erstellen das wenn nur eine ExcelDatei geöffnet ist Application.quit gestartet wird sobald aber schon andere Excelmappen gestartet sind nur Thisworkbook.close
Wie kann ich...
05.11.2008 07:34:00
Thread-ID: 1021747
7 Beiträge
Listbox, letzter Eintrag nicht sichtbar
ede

Hallo,
ich habe eine Listbox in ein Excelsheet eingebunden. Passend zu dem ausgewählten Eintrag wird die Auswahl in eine Zelle geschreiben, die Input für eine Grafik ist. Funktioniert alles soweit bestens.
Als ListfillRange habe ich einen namentlich definierten Bereich eingegeben : "Bau...
11.11.2008 15:19:10
Thread-ID: 1023583
7 Beiträge
Anzeige
Zeitgesteuerte Sichtbarkeit eines Zellinhalts
gerhard

Guten Tag,
Besteht die Möglichkeit (VBA), per Mausklick den Textinhalt einer Zelle nur für den Bruchteil einer Sekunde anzuzeigen? Diese Zeitsteuerung soll zB. über die Zelle A1 einer Tabelle gesteuert werden. Steht in Zelle A1 die Zahl 20, soll der Zellinhalt für 1/20stel Sekunde angezeigt...
27.12.2008 11:46:54
Thread-ID: 1035355
6 Beiträge
Schaltfläche unsichtbar machen
Frank

Guten Abend Zusammen!
Bin ein wenig ratlos, wenn eine Datei geöffnet wird, so wird gleichzeitig eine UF geöffnet und angezeigt. Auf dieser befindet sich ein CommandButton welcher nicht sichtbar sein soll für die Benutzer der Datei, aber der Autor soll, weil er weiß an welcher Stelle sich de...
09.01.2009 19:35:27
Thread-ID: 1038312
9 Beiträge
Excel Leisten nicht sichtbar
Enzo

Hallo Leute
Habe eine blöde Frage:
Habe eine UF erstellt die beim Starten der Datei sofort geöffnet wird.
Wie kann ich erreichen, daß beim Starten der Datei auch Excel-Leisten oben und unten Commandbar etc. nicht mehr sichtbar sind.
Für Eure hilf danke ich schon.
MfG
Enz...
11.01.2009 14:06:00
Thread-ID: 1038647
7 Beiträge
Excel Sheets Sichtbar machen
joerg

Hallo zusammen,
ich habe ein Problem mit Arbeitsmappen.
Wir nutzen eine Funktionalität der SAP (VBA makro mit PWD schutz) zum öffnenn von Workbooks.
Das funktioniert auch optimal.
Ich möchte in bestimmten Workbooks Module austauschen und dann zurückspeicher.
Der Austausch fu...
15.01.2009 13:31:00
Thread-ID: 1040101
4 Beiträge
Excel Sheets Sichtbar machen
joerg

Hallo zusammen,
ich habe ein Problem mit Arbeitsmappen.
Wir nutzen eine Funktionalität der SAP (VBA makro mit PWD schutz) zum öffnenn von Workbooks.
Das funktioniert auch optimal.
Ich möchte in bestimmten Workbooks Module austauschen und dann zurückspeicher.
Der Austausch fu...
15.01.2009 14:39:00
Thread-ID: 1040150
2 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox OptionButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
5
6
6
6
5
8
6
3
1
5
9
3
8
2
4
1
6
7
1
2
5
4
2
1