Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sichersteellen, dass Papierformat A4

Forumthread: Sichersteellen, dass Papierformat A4

Sichersteellen, dass Papierformat A4
Peter
Guten Tag
Mein Excel-File hat 6 Tabellen und wird von mehreren Personen bearbeitet. Gelegentlich erfolgen Ausdrucke auf A3 - trotzdem sollte immer A4 eingestellt sein.
Gibt es eine Möglichkeit, dass beim Schliessen eine Excel-Files überprüft wird, ob bei allen Tabellen das Papierformat für den Ausdruck auf A4 definiert ist?
Wenn ja, möchte ich gerne eine MsgBox erhalten, falls A4 nicht überall eingestellt ist. Speichern und Schliessen muss trotzdem möglich sein.
Gruss, Peter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Sichersteellen, dass Papierformat A4
21.03.2011 10:43:48
Rudi
Hallo,
in DieseArbeitsmappe: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim blnA4 As Boolean, wks As Worksheet
blnA4 = True
For Each wks In Worksheets
blnA4 = blnA4 And wks.PageSetup.PaperSize = xlPaperA4
Next
If Not blnA4 Then
Cancel = MsgBox("Nicht überall A4!" & vbLf & "Trotzdem schließen?", vbYesNo, "Gebe bekannt . _
..") = vbNo
End If
End Sub

Gruß
Rudi
Anzeige
AW: Sichersteellen, dass Papierformat A4
21.03.2011 11:24:52
Peter
Hallo Rudi
Das ist ja prima! Vielen Dank.
Könnte man die Namen Dokumente, die nicht auf A4 eingestellt sind, einer Variable übergeben (mit Zeilenumbruch) und diese dann in mit der MsgBox auch ausgeben?
Gruss, Peter
AW: Sichersteellen, dass Papierformat A4
21.03.2011 11:52:41
Rudi
Hallo,
klar geht das. 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim blnA4 As Boolean, wks As Worksheet, arrSheets(), n
ReDim arrSheets(0 To Worksheets.Count - 1)
blnA4 = True
For Each wks In Worksheets
If Not wks.PageSetup.PaperSize = xlPaperA4 Then
blnA4 = False
arrSheets(n) = wks.Name
n = n + 1
End If
Next
If Not blnA4 Then
ReDim Preserve arrSheets(n - 1)
Cancel = MsgBox("Nicht überall A4!" _
& vbLf & Join(arrSheets, vbLf) _
& vbLf & vbLf & "Trotzdem schließen?", vbYesNo, "Gebe bekannt ...") = vbNo
End If
End Sub

Gruß
Rudi
Anzeige
AW: Sichersteellen, dass Papierformat A4
21.03.2011 14:16:07
Peter
Hallo Rudi
Perfekt!!!
Vielen Dank, Peter
;

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