ich habe wieder mal ein kleines Problem. In einer Arbeitsmappe habe ich einen Code der alle Spaltenbeschritungen und Leisten beim Öffnen der ausblendet. In der Datei werden unter anderem aus mehreren Tabellenblättern Daten ausgelesen und als neue Datei in einem separaten Ordner abgelegt. Und genau beim ausführen des Makros was die Daten aus verschiedenen Blättern ausliest und dann in eine neue Datei esxportiert kommt die Fehlermeldung "Speicherung der Kopie nicht möglich. Meine Frage ist nun - Wie kann ich beim Ausführen dieses einen Makros welches die Daten ausliest und in eine neue Datei speichert Excel kurz wieder in den Zustand bringen als wenn es normal geöffnet wurde.
Anbei die Codes
in Diese Arbeitsmappe
Option Explicit
' Verändert
' Spalten- Zeilenköpfe ausblenden
Private Sub Workbook_Activate()
Leisten False ' Makro "Leisten" aufrufen, Symbolleisten _
ausblenden
End Sub
Private Sub Workbook_Deactivate()
Leisten True ' Makro "Leisten" aufrufen, Symbolleisten _
einblenden
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False ' Spalten-/Zeilenköpfe ausblenden
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Beim Schließen der Arbeitsmappe die Tastenbelegung zurücksetzen
Application.DisplayFullScreen = False
End Sub
Private Sub Workbook_Open()
Stand = Application.DisplayFormulaBar ' Zustand der Bearbeitungsleiste
ActiveWindow.DisplayHeadings = False ' Spalten-/Zeilenköpfe ausblenden
' das Ausblenden der Symolleisten erfolgt durch das Activate Ereignis
Application.DisplayFullScreen = True
End Sub
In einem Modul
Option Explicit
Dim Symbol As CommandBar ' Variable für Symbolleisten, nur für deses Modul
Public Stand As Boolean ' Zustand der Bearbeitungsleiste, Arbeitsmappen weit
Sub Leisten(AnAus As Boolean) ' Makro mit Übergabe einer Variablen
Application.ScreenUpdating = False ' Bildschirmaktualisierung aus
For Each Symbol In Application.CommandBars ' Schleife über alle Symbolleisten
Symbol.Enabled = AnAus ' Symbolleiste Aus-/Einblenden
Next Symbol
If AnAus = False Then ' Zustand Aus-/Einblenden
Application.DisplayFormulaBar = False ' Bearbeitungsleiste ausblenden
Else
Application.DisplayFormulaBar = Stand ' Bearbeitsleiste zurücksetzen
End If
Application.ScreenUpdating = True ' Bildschirmaktualisierung ein
End Sub Bin für jeden Hinweis dankbar
MfG René