Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Before save wenn eine Excel-Datei

Forumthread: 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.
Anzeige

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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige