Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter ausblenden

Forumthread: Tabellenblätter ausblenden

Tabellenblätter ausblenden
13.01.2009 14:23:00
Reinhardt
Hallo.
Ich habe eine Mappe mit ca. 100 Tabellenblättern. , aber die Anzahl ist variabel.
Nun wähle ich im TB "INHALT" über eine Listbox ein Tabellenblatt an, welches auch dann angezeigt wird.
(Die Zellverknüfung ist A1, in B1 steht der Sverweis mit dem Namen des Tabellenblattes).
Ich möchte gerne, das per VBA bei Anwahl aus der Listbox alle anderen Tabellenblätter nicht sichtbar sind.
Also:
1. Nur Tb "INHALT" sichtbar
2. nach Anwahl das TB "INHALT" und das ausgewählte TB sichtbar
3. bei TB INHALT activate würde ich das zuvor ausgewählte Blatt wieder unsichtbar machen wollen.
Für mich ist das aber "schwerer Tobak" wer kann mir da helfen?
Gruß Reinhardt
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter ausblenden
13.01.2009 14:44:43
RS
Hi Reinhardt,
Kopiere diese Codes in DieseArbeitsmappe:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name  "INHALT" Then ws.Visible = xlSheetHidden
Next ws
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim thisSheet As String
thisSheet = Left(Target.SubAddress, InStr(Target.SubAddress, "!") - 1)
ThisWorkbook.Sheets(thisSheet).Visible = xlSheetVisible
Application.EnableEvents = False
ThisWorkbook.Sheets(thisSheet).Activate
Application.EnableEvents = True
End Sub


Grüsse RS

Anzeige
Sorry, dachte es wären Hyperlinks (oT)
13.01.2009 14:47:28
RS

Es geht trotzdem, ähnlich...
13.01.2009 15:07:57
RS
Kopier die erste vorgeschlagene Routine 

Workbook_SheetActivate(...

in DieseArbeitsmappe.
In Deinem Code, in dem du das Blatt aktivierst, schreibe:


Application.EnableEvents = False
...Dein Code zum Blatt aktivieren
Application.EnableEvents = True


Grüsse RS

Anzeige
;

Forumthreads zu verwandten Themen

Pivot berechnetes Feld
Peter

Hallöchen zusammen,
entweder stelle ich mich zu dämlich an, oder ich kapiere die Pivot wirklich nicht.
Habe eine Tabelle, aus der ich mir die Daten ziehe.
In die Datenfelder der Pivot kommt die gesamte Anzahl von Datensätzen.
In die Spaltenfelder die Differenzierung eines bestim...
15.08.2008 10:34:52
Thread-ID: 1002088
4 Beiträge
Inhalt aus mehreren Tabellen einfügen
Fred

Hallo zusammen.
Ich bin seit längerem schon auf der suche nach einem Makro und kann aber ein ähnliches wie ich es bräuchte nicht. Finde.
Es geht darum, das ich wenn ich auf einen Button klicke möchte ,das das Makro mehrere Von mir benannte Ordner duch sucht nach fest vorgeschriebenen X...
21.08.2008 18:04:19
Thread-ID: 1003605
2 Beiträge
Pivot-Table-Makro in mehreren Tabellen-Blättern
Ela

Liebe Fachleute,
ich habe eine Arbeitsmappe mit mehreren Tabellen-Blättern. Nun habe ich ein Makro zur Erstellung einer Pivot-Tabelle aufgenommen. Ich möchte, unabhängig davon, auf welchem Tabellenblatt ich mich gerade befinde, das Makro ablaufen lassen. Und zwar so, dass das Makro immer au...
26.08.2008 10:04:08
Thread-ID: 1004699
3 Beiträge
Datenbereich dynamisch in Pivot-Tabelle einbinden
Markus

Hallo allerseits,
ich habe folgendes Problem. Für die Erstellung einer Pivot-Tabelle muß ich den Datenbereich manuell selektieren. Da sich aber mein Datenbereich ständig ändert, würde ich das ganze automatisiert selektieren lassen. Wie krieg' ich das in dem folgenden Makro unter ?:
Rang...
02.09.2008 14:20:30
Thread-ID: 1006792
4 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
aus ausgewählter Datei Tabellenblätter kopieren
Katrin

Hallo, wer kann mir helfen?
Ich möchte aus einer, vorher in einem Dialogfenster ausgewählten Datei (immer unterschiedlich), den Inhalt mehrerer Tabellenblätter in eine andere Datei kopieren. Dabei sind die Bezeichnungen der Tabellenblätter in den beiden Dateien identisch. Bis zum 1. Tabelle...
17.09.2008 10:35:00
Thread-ID: 1010267
2 Beiträge
Pivot Datenauswahl Müll entfernen
Susanne

Hallo,
habe folgendes Problem.
Habe eine Pivottabelle erstellt, die ich seit einiger Zeit nutze.
In der Eingabeliste standen zwischenzeitlich Daten, die falsch bzw. nicht mehr aktuell sind.
In der Datenauswahl der Pivottabelle (wo man die Häkchen reinmacht, um die anzuzeigen...
25.09.2008 13:31:00
Thread-ID: 1012317
5 Beiträge
Anzeige
Aus zwei Tabellen eine Machen
SebastianSchelb

Hallo ich brauche euere Hilfe. Aleine schaffe ich es einfach nicht.
Ich habe eine zwei Tabelle mit Wörtern die zusammengefasst werden soll in eine Tabelle, in welcher aber kein Wort doppelt sein soll. Die anzahl der Wörter der 1. und 2. Tabelle vareieren von Tag zu Tag
Tabelle 1 (in der...
06.10.2008 14:52:00
Thread-ID: 1014455
5 Beiträge
Help - Tabellenblätter nacheinander auslesen
Markus

Hallo zusammen,
ich habe eine Datei mit verschiedenen Tabellen.
In der Tabelle 1 (Spalte A, beginnend mit Zeile 2) sind alle Tabellennamen aufgeführt, die in der Datei nach der Tabelle 1 vorkommen.
Ich möchte nun in einer variablen Schleife (so oft, wie Namen in der Tabelle 1 steh...
07.10.2008 19:22:33
Thread-ID: 1014799
6 Beiträge
Anzeige
Seitenfeld mit Datum in Pivottabelle
Peter

Hallo zusammen,
ich habe folgendes problem mit einer Pivottabelle:
in den Ursprungsdaten stehen u.a. Datumsangaben. Diese sollen in der Pivottabelle im Seitenfeld verwendet werden. Allerdings möchte ich nicht, dass jeder Datumswert dort angezeigt wird sondern eine Zusammenfassung der Mo...
08.10.2008 11:17:51
Thread-ID: 1014965
4 Beiträge
Liste aus zwei Tabellen
kirsche

hallo leute,
mal wieder brauche ich eure hilfe.
ich möchte eine liste erstellen, die sich aus zwei tabellen zusammen setzt.
1.tabelle = oberbegriffe
2.tabelle = unterbegriffe
nun soll in der liste der erste oberbegriff eingetragen werden und dann die dazugehörigen unterbegr...
19.10.2008 12:36:48
Thread-ID: 1017454
5 Beiträge
Pivot-Auswertung trotz Leerzellen möglich?
Andreas

Guten Tag,
ich arbeite mit einer ziemlich großen Liste an Daten, die sich sehr gut mit Pivot-Tabellen auswerten lässt. Leider sind aber in manchen Zeilen bestimmte Werte nicht vorhanden. Wenn ich nun den Auswahlbereich einer solchen Tabelle über einen Bereich mit solchen leeren Feldern zieh...
05.11.2008 13:07:00
Thread-ID: 1021878
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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