Private Sub Workbook_BeforeClose

Bild

Betrifft: Private Sub Workbook_BeforeClose
von: Heinz H
Geschrieben am: 18.08.2015 21:00:19

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

Bild

Betrifft: AW: Private Sub Workbook_BeforeClose
von: Armin
Geschrieben am: 19.08.2015 09:11:47
Hallo Heinz,
versuch mal die Hauptseite vorher zu aktivieren.

 Sheets("Haupt").Activate
Gruß Armin

Bild

Betrifft: AW: Private Sub Workbook_BeforeClose
von: Heinz H
Geschrieben am: 19.08.2015 21:33:57
Hallo Armin
Einfach aber Genial
Recht herzlichen Dank
Gruß, Heinz

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Übereinstimmungen mit Pivot"