Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
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
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

page setup default

Forumthread: page setup default

page setup default
20.12.2005 14:40:27
johannes
hiya,
ich hab ein kleines problem mit excel. ich habe ziemlich viele excel files und jedes file hat mehrere Diagramme und worksheets. einge diagramme und worksheetshaben das das format "letter" und manche "A4". gibt es eine moeglichkeit alle diagramme und worksheets in einer datei auf einmal ein einheitliches format z.b. "A4" zu geben?
und wie kann die die voreinstellung von "letter" auf "A4" permanent aendern?
vielen dank, ihr erspart mir eine menge arbeit!!
Johannes
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
zu ersten Frage
21.12.2005 04:44:41
Reinhard
Hi Johannes,
ungetestet: 
Option Explicit
Sub hochkant()
Dim fs, n
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.Filename = "*.xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
For n = 1 To ActiveWorkbook.Sheets.Count
With Sheets(n).PageSetup
.Orientation = xlLandscape 'oder xlPortrait, verwechsle das immer
End With
Next n
Workbooks(.FoundFiles(i)).Close savechanges:=True
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub

Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.
Anzeige
AW: zu ersten Frage
21.12.2005 10:41:00
Johannes
hiya,
danke fuer die schnelle antwort. muss ich diese subroutin schreiben? gibt es keine moeglichkeit es in den "options" einzustellen?
Johannes
AW: zu ersten Frage
21.12.2005 10:41:05
Johannes
hiya,
danke fuer die schnelle antwort. muss ich diese subroutin schreiben? gibt es keine moeglichkeit es in den "options" einzustellen?
Johannes
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