Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seitenrad

Seitenrad
09.12.2006 15:13:26
Thomas
Hallo,
ich füge mir zur Zeit via VBA ein neues Tabellenblatt in meine Excelmappe und kopiere anschließend die Inhalte vom Tabellenballt "Test" in das neu eingefügte Tabellenblatt "ARC" mit folgendem Code:
Sheets.Add after:=Sheets("Test")
ActiveSheet.Name = "ARC"
Sheets("Test").Select
Cells.Select
Selection.Copy
Sheets("ARC").Select
ActiveSheet.Paste
Jetzt möchte ich noch beim neu eingefügten Tabellenblatt "ARC", dass der obere Seitenrand automatisch nach dem einfügen der Daten vom Tabellenblatt "Test" auf 3cm eingestellt wird.
Danke für jede Antwort!
Viele Grüße,
Thomas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Oberer Seitenrand auf 3cm einstellen
09.12.2006 15:30:41
NoNet
Hallo Thomas,
ergänze Deinen Code um folgende Zeile :
Sheets("ARC").PageSetup.TopMargin = Application.CentimetersToPoints(3) '3cm Oberer Rand
Liebe Grüße,
NoNet

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige