Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1272to1276
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
Inhaltsverzeichnis

VBA komplette Formatierung (Zeilenhöhe, Seitenrand

VBA komplette Formatierung (Zeilenhöhe, Seitenrand
onkelbobby
Hi,
wie schaffe ich es alle Formatierungen eines Tabellenblatts in einer neu erstellen Datei zu übernehmen.
Mein bisheriger Code:
Sub Te()
Workbooks.Add
ThisWorkbook.Sheets("Laufliste").UsedRange.Copy
With ActiveWorkbook.Sheets(1).Cells(1, 1)
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteColumnWidths
End With
Application.Dialogs(xlDialogSaveAs).Show Dateiname
End Sub
Funktioniert soweit, nur soll noch alles was im Dialog (Seite einrichten) festgelegt wird und die Zeilenhöhe geändert werden.
Danke!

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

Betreff
Benutzer
Anzeige
AW: VBA komplette Formatierung (Zeilenhöhe, Seitenrand
01.08.2012 11:51:18
Rudi
Hallo,
wenn du das Blatt kopierst, werden auch alle Formatierungen und Seiteneinrichtungen übernommen.
Also einfach
Sub Te()
ThisWorkbook.Sheets("Laufliste").Copy
Application.Dialogs(xlDialogSaveAs).Show Dateiname
End Sub

Gruß
Rudi
AW: VBA komplette Formatierung (Zeilenhöhe, Seitenrand
01.08.2012 12:05:33
onkelbobby
Hi Rudi,
das funktioniert, aber Problem: Die Codes werden mitkpiert und das will ich eben nicht. Die beiden Posts von mir müssten zusammengefasst werden.
Mir ist egal, ob ich die Lösung Copy-Paste wähle oder saveas...
Wichtig ist mir eine neue Datei zu haben mit identischen Formatierungen und ohne Codes in der Datei!
Danke, Robert
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige