Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
404to408
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
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seitenlayout kopieren

Seitenlayout kopieren
KlausF
Hallo Excellenzen!
Zum Verschicken von mehreren, ursprünglich mit diversen Verknüpfungen versehenen Tabellen per e-Mail erstelle ich per Makro jeweils eine Kopie ohne Formeln hinein in mehrere Blätter einer neuen (leeren) Excel-Datei.
Das Makro habe ich einfach mit dem Makrorekorder erzeugt.
Wie kann ich dabei die einzelnen Seitenlayouts mit kopieren, damit der Empfänger zum Ausdrucken diesen Wust nicht noch einmal formatieren muss?
Hier hörts mit dem Recorder und meinen jämmerlichen Kenntnissen von VBA auf.
Im Archiv hab ich schon nachgesehen - ohne Erfolg.
Kann mir jemand auf die Sprünge helfen?
Für Eure Bemühungen (zumindest bis schon hierher gelesen zu haben) besten Dank im Voraus.
Klaus

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

Betreff
Benutzer
Anzeige
AW: Seitenlayout kopieren
Johannes
Hallo Klaus,
versuchs mal so:

Sub Copy()
'kopiert erst das Blatt und dann die Werte in neuem Blatt mit Wert einfügen
Sheets("Tabelle2").Select
Sheets("Tabelle2").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
End Sub

Es wird zuerst das Blatt in eine neue Datei kopiert und dann in sich selber kopiert aber nur Werte eingefügt - damit sind die Formeln und Verknüpfung weg, die Formatierung bleibt. Hoffe das hilft.
Gruß
Johannes
Anzeige
AW: Seitenlayout kopieren
KlausF
Sorry Johannes,
sicher hab' ich mich undeutlich ausgedrückt: mit Seitenlayout meine ich das Druck-Layout (Hoch/Querformat, Skalierung, Ränder etc.).
Und das kommt bei einem Kopieren per Makro so ohne weiteres nicht mit. Tja, und das ist das Problem.
Weist Du trotzdem weiter?
Klaus
AW: Seitenlayout kopieren
Klaus
Hallo Klaus,
wenn dein Tabellenblatt, das kopiert werden soll, ein eingerichtetes Seitenlayout hat, wird das auch per Makro mit kopiert. Hier der Inhalt meines aufgezeichneten Makros.
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy Before:=Workbooks("Mappe1").Sheets(1)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Es gibt nur einen Unterschied zu Johannes in Zeile 2.
Bei mir funktioniert es
Tschüss
Klaus
Anzeige
AW: Seitenlayout kopieren
KlausF
Danke für die Mühe Ihr beiden, aber bei mir funzt's nicht.
Kopieren kommt an, aber wenn ich bei der neuen Tabelle (nur Werte) nach dem Kopieren auf Seitenansicht gehe, erscheint eben nicht das Seitenlayout der Quelltabelle - ich muß das Seitenlayout von Hand neu festlegen.
Warum funzt das bei Euch, aber nicht bei mir?
(habe Win98 (nicht SE!) + Office97)
Trotzdem: Danke an Euch!
Klaus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige