Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

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

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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