Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
18.04.2024 16:33:24
Anzeige
Archiv - Navigation
916to920
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle Tebellenblätter bei beenden einblenden

Alle Tebellenblätter bei beenden einblenden
24.10.2007 08:13:36
Holly
Hallo zusammen,
ich möchte wenn ich meine Datei schliesse alle Tabellen einblenden.
möchte aber nicht für jedes einzelne Blatt einen Code
den habe ich. Sheets("Stammdaten").Visible = True
Ich möchte mit einem Befehl alle Blätter auf einmal einblenden,
habe es mit folgendem versucht (bitte nicht lachen )
Application.for all sheets.visiblel = True
das ging nicht.
Danke für die Hilfe
Holger

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Tebellenblätter bei beenden einblenden
24.10.2007 08:21:21
serge
Hallo Holger
probîer es mit
For Each sh In Sheets
sh.Visible = True
Next sh
Gruss
serge

so gehts ...
24.10.2007 09:03:16
Matthias
Hallo Holger
So gehts ...
Code in DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim x As Long
Application.ScreenUpdating = False
For x = 1 To Sheets.Count
Sheets(x).Visible = True
Next
Application.ScreenUpdating = True
End Sub


Wenn es nur Tabellenblätter sind ersetze Sheets durch Worksheets im Code
Sheets blendet auch z.B. Diagramme wieder ein / Worksheets nur Tabellenblätter.
Userbild

Anzeige
Danke Matthias L es läuft
24.10.2007 09:33:27
Holly
Danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige