Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Private Sub Workbook_BeforeClose

Forumthread: Private Sub Workbook_BeforeClose

Private Sub Workbook_BeforeClose
18.08.2015 21:00:19
Heinz
Hallo Leute
Könnte man den unteren Code etwas eleganter schreiben?
Denn wenn ich die Arbeitsmappe schließe, Flackert der Bildschirm so lange bis alle Sheets geschlossen sind.
Also etwa im Hintergrund schließen.
Danke & gruß Heinz

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Name  "Haupt" Then wks.Visible = xlSheetVeryHidden
Next
Application.ScreenUpdating = True
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Private Sub Workbook_BeforeClose
19.08.2015 09:11:47
Armin
Hallo Heinz,
versuch mal die Hauptseite vorher zu aktivieren.
 Sheets("Haupt").Activate
Gruß Armin

AW: Private Sub Workbook_BeforeClose
19.08.2015 21:33:57
Heinz
Hallo Armin
Einfach aber Genial
Recht herzlichen Dank
Gruß, Heinz
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige