Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1756to1760
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
1756to1760
1756to1760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Before save wenn eine Excel-Datei

Before save wenn eine Excel-Datei
05.05.2020 21:53:27
Ingo
Hallo,
ich möchte vor dem Speichern eine bestimmte Seite auswählen, damit sie beim Öffnen angezeigt wird. Das aber nur wenn eine Excel-Datei gespeichert wird und keine PDF.

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

Betreff
Datum
Anwender
Anzeige
AW: Before save wenn eine Excel-Datei
06.05.2020 00:54:56
Martin
Hallo Ingo,
das Workbook_BeforeSave-Ereignis gibt keine Information zurück in welchem Format die Excelmappe gespeichert wird:
https://docs.microsoft.com/de-de/office/vba/api/excel.workbook.beforesave
Unabhängig vom Format würde das Makro so aussehen: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Tabelle1").Activate 'Name der Tabelle anpassen
End Sub
Wenn du die Datei im PDF-Format speichern möchtest, solltest du das über ein Makro machen und die Event-Eigenschaft mit... 
Application.EnableEvents = False
...zu Beginn des Makro deaktivieren und am Ende des Makros wieder auf = True setzen.
Ich würde dir aber empfehlen besser direkt beim Öffnen der Excelmappe das korrekte Tabellenblatt auszuwählen zu lassen: 
Private Sub Workbook_Open()
Sheets("Tabelle1").Activate  'Name der Tabelle anpassen
End Sub
Viele Grüße
Martin
Anzeige
AW: Before save wenn eine Excel-Datei
06.05.2020 08:08:09
fcs
Hallo Ingo,
diese Variante aktiviert das gewünschte Blatt vor dem "normalen" Speichern.
Bei allen Varianten von "Speichern unter" wird das aktive Blatt nicht gewechselt.
LG
Franz 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sSheetSave As Object
Set sSheetSave = Me.Sheets("Tabelle1") 'Dieses Blatt aktivieren vor Speichern
If SaveAsUI = False Then
sSheetSave.Activate
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige