Geschwindigkeit ".PageSetup"
03.12.2005 13:30:23
Florian
Ein neues Tabellenblatt zu formatieren funktioniert im Projekt mit meinem untenstehendem Code. Allerdings braucht es viel Zeit, was mir in Anbetracht der "einfachen" Aufgabe unverhältnissmässig scheint. So gebe ich den Code mal in eure Hände zur Optimierung. Ich freue mich auf Gedankenanstösse um dazuzulernen. Vielen Dank im Voraus!
Flo
Sub JPnew()
Application.DisplayAlerts = False 'Alarmmeldungen ausschalten
'Überprüfen ob ein Tabellenblatt "Jahresplan" heisst
For Each ws In Worksheets
If ws.Name = "Jahresplan" Then
Worksheets("Jahresplan").Delete 'gefundenes Tabellenblatt löschen
Exit For
End If
Next ws
'neues Tabellenblatt einfügen, Namen zu "Jahresplan" ändern
Set NewSheet = Worksheets.Add
NewSheet.Name = "Jahresplan"
'"Jahresplan" nach "Daten" verschieben
Sheets("Jahresplan").Move After:=Sheets("Daten")
Application.DisplayAlerts = True 'Alarmmeldungen einschlaten
'"Jahresplan"-Tabellenblatt formatieren
With Worksheets("Jahresplan").PageSetup
' .LeftHeader = ""
' .CenterHeader = ""
' .RightHeader = ""
' .LeftFooter = ""
.CenterFooter = "&P / &N"
' .RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
' .PrintHeadings = False
' .PrintGridlines = False
' .PrintComments = xlPrintNoComments
' .PrintQuality = 1200
' .CenterHorizontally = False
' .CenterVertically = False
' .Orientation = xlPortrait
' .Draft = False
' .PaperSize = xlPaperA4
' .FirstPageNumber = xlAutomatic
' .Order = xlDownThenOver
' .BlackAndWhite = False
' .Zoom = 100
' .PrintTitleRows = ""
' .PrintTitleColumns = ""
End With
End Sub
Anzeige