Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter ausblenden bei Datei schließen

Tabellenblätter ausblenden bei Datei schließen
21.02.2018 07:24:21
Axel
Guten Morgen,
ich möchte beim Schließen einer Datei mit ca. 50 Tabellenblätter alle bis auf 2 ausblenden. Von den Tabellenblättern sind nur einige nicht ausgeblendet, der Rest ist auch schon so ausgeblendet.
Ich dachte an so etwas:
Private Sub Workbook_Close()
ActiveWorkbook.Sheets("Zweckbestimmung").Visible = True
ActiveWorkbook.Sheets("EC-Export").Visible = True
ActiveWorkbook.Sheets("WM-Tool").Visible = xlSheetHidden
ActiveWorkbook.Sheets("AM-Tool").Visible = xlSheetHidden
End Sub
Aber das muss doch irgendwie einfacher gehen und vor allem, es sind ja nicht alle "Active", oder?
Vielen Dank schon mal vorab.
Axel

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter ausblenden bei Datei schließen
21.02.2018 07:38:40
Werner
Hallo Axel,
so: 
Private Sub Workbook_Close()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Blatt1", "Blatt2" 'Blätter die nicht ausgeblendet werden sollen
'nichts machen
Case Else
ws.Visible = False
End Select
Next ws
End Sub
Gruß Werner
AW: Tabellenblätter ausblenden bei Datei schließen
21.02.2018 08:00:29
Axel
Hallo Werner,
tausend Dank. Könnte ich auch
ws.Visible = xlSheetVeryHidden
schreiben?
Gruß
Axel
AW: Tabellenblätter ausblenden bei Datei schließen
21.02.2018 08:02:27
Werner
Hallo Axel,
ja, kannst du -einfach ausprobieren.
Gruß Werner
AW: Tabellenblätter ausblenden bei Datei schließen
21.02.2018 12:07:14
Axel
Hallo Werner,
wenn ich die Arbeitsmappe schließe und danach neu öffne, sind die zuletzt geöffneten Arbeitsmappen noch sichtbar.
Woran kann das liegen?
Danke und Gruß
Axel
Anzeige
AW: Tabellenblätter ausblenden bei Datei schließen
21.02.2018 13:07:49
Werner
Hallo Axel,
warum machst du den Code nicht ins Workbook_open?
Gruß Werner
AW: Tabellenblätter ausblenden bei Datei schließen
21.02.2018 13:56:15
Axel
Hi Werner, das habe ich gemacht:
Private Sub Workbook_Open()
Dim ii As Integer
For ii = 2 To Sheets.Count 'Alle Tabellenblätter bis auf Zweckbestimmung werden  _
ausgeblendet
Sheets(ii).Visible = False 'ToDo bei Finalisierung: später auf xlSheetVeryHidden setzen
Next ii
UserForm1.Show
End Sub
Aber dann sieht man erst mal kurz die zuletzt geöffneten Tabellenblätter. Das soll so nicht sein.
Ich hatte noch einen anderen Ansatz probiert:
Private Sub ActiveWorkbook_Close()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
If ws.Name("Zweckbestimmung", "EC-Export") Then
ws.Visible = xlSheetVisible
Else: ws.Visible = xlSheetHidden
Next ws
End Sub
Das funktioniert aber auch nicht...
Bin ratlos.
Anzeige
AW: Tabellenblätter ausblenden bei Datei schließen
21.02.2018 20:03:29
Werner
Hallo Axel,
Private Sub Workbook_Open()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Zweckbestimmung", "EC Export" 'Blätter die nicht ausgeblendet werden sollen
'nichts machen
Case Else
ws.Visible = xlSheetVeryHidden
End Select
Next ws
Application.ScreenUpdating = True
End Sub
Gruß Werner
AW: Tabellenblätter ausblenden bei Datei schließen
22.02.2018 07:21:38
Axel
Hallo Werner,
ich konnte Deinen Code erst heute ausprobieren... Danke dafür.
Das funktioniert auch, aber ist nicht das, was ich brauche. Ich möchte wirklich beim Schließen der Datei alle Tabellenblätter ausblenden.
Wenn ich das "Private Sub Workbook_Open()" durch "...Close()" ersetze, funktioniert es nicht.
Wäre toll, wenn Du noch eine Idee hast.
Vielen Dank vorab
Axel
Anzeige
AW: Tabellenblätter ausblenden bei Datei schließen
22.02.2018 12:16:46
Werner
Hallo Axel,
dann mußt du im Bevore_Close dafür sorgen, dass das Workbook auch gespeichert wird.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Zweckbestimmung", "EC Export" 'Blätter die nicht ausgeblendet werden sollen
'nichts machen
Case Else
ws.Visible = xlSheetVeryHidden
End Select
Next ws
ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub
Gruß Werner

8 Forumthreads zu ähnlichen Themen

VBA Zeilen und Tabellenblätter ein- und ausblenden
Frank

Hallo zusammen,
ich habe folgende VBA-Codes, die beide einzeln funktionieren. Nun möchte ich, dass beide zusammen funktionieren. Könnt ihr mir da bitte helfen?
Wenn auf dem Tabellenblatt "Start" in Zelle "J15" eine 3 ausgegeben wird, dann soll das Tabellenblatt "Erfolgskontrolle" eingeb...
19.11.2018 08:03:33
Thread-ID: 1658107
7 Beiträge
Anzeige
Ausgeblendete Zellen wieder einblenden
Cruiser
Hallo,
ich hab da ein Problem und ich bin mir sicher, dass ihr mir da weiter helfen könnt.
Wenn ich in Excel Zeile oder Spalten ausblende klappt das Problemlos. Allerdings weiß ich nicht genau wie man sie wieder hervor holt.
Jetzt habe ich eine Datei bekommen bei der an der Seite ein + war...
22.12.2004 17:33:59
Thread-ID: 537088
5 Beiträge
Ausgeblendete Blätter wieder einblenden
Hauke

Wenn ich in einer Excel-Datei mehrere Blätter ausblende, muss ich immer jedes einzelne Blatt wieder einzeln einblenden. Gibt es einen Trick, wie man alle ausgeblendeten Blätter auf einmal wieder einblenden kann?
08.01.2007 15:08:17
Thread-ID: 834929
2 Beiträge
Anzeige
VBA Tabellenblätter ein/ausblenden
Michael

Hi zusammen,
ich steh gerade irgendwie auf dem Schlauch.
Ich habe eine Datei mit recht vielen Tabellenblättern, die ich per Makro ein- und ausblenden will. Dazu hab ich eine Tabelle (AQ41:AR59). In AQ stehen jeweils die Namen der Tabellenblätter. In AR steht "ja" oder "nein".
Ich...
11.12.2020 13:03:37
Thread-ID: 1799133
4 Beiträge
VBA Blätter ein- ausblenden
Dirk

Hallo Forum,
ich möchte eine Datei öffnen und dann nur das Blatt "Navigator" sehen. In diesem Blatt sind Links zu den anderen Blättern. Ich möchte einen Link anklicken und das entsprechende Blatt soll erscheinen. Das Navigatorblatt soll eingeblendet bleiben. Wenn ich nun das Navigatorblatt...
08.02.2021 11:03:22
Thread-ID: 1811558
2 Beiträge
VBA Tabellenblätter ein- und ausblenden
Lothar

Hallo an Alle,
ich habe eine Exceldatei mit mehr 100 Blättern.Zur Übersichtlichkeit möchte ich alle Blätter, bis auf das Blatt "Tab_Liste", aus- und bei Bedarf wieder einblenden. Das Einblenden klappt mit den Code's aus dem Netz, aber das Einblenden nicht.
Vielleicht hat ja jemand eine...
22.02.2021 18:09:34
Thread-ID: 1815230
6 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
3
4
1
6
3
1
5