Pagesetup bei mehreren Sheets
R.Przybilla
ich versuche per VBA bei vielen Sheets gleichzeitig das Pagesetup zu machen, da das bekanntermaßen bei jeder einzelnen ewig dauert.
Nur es gelingt mir nicht, er macht das immer nur beim aktivierten Sheet.
Wenn ich das händig mache, indem ich mehrere markiere und über "Seite einrichten.." formatiere, geht das prima.
Nur mit Hilfe eines Sheets(Array()) geht das nich.
Eine Schleife hilft jetzt, aber ist nicht zufriedenstellend.
Hier mal ein Auszug aus dem Code mit dem Array.
Das Formatieren aller Seiten geht gut, außer dass mich das Select stört überall, vllt hat jemand auch noch dafür eine Lösung.
Sub test()
Dim SHTS() As String
For n = 2 To lZeile
If Not EXIST_SHEET(PersNr) Then
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = PersNr
ReDim Preserve SHTS(1 To i) As String
SHTS(i) = PersNr
i = i + 1
Set PERSNRsht = Worksheets(PersNr)
End If
With Worksheets(SHTS)
.Select
Range(Columns(1), Columns(2)).Select
Selection.NumberFormat = "ddd, dd/mm/yy"
Columns(3).Select
Selection.NumberFormat = "[hh]:mm:ss"
Cells.Select
Cells.Font.Size = 12
Rows(1).Select
Selection.Font.Bold = True
Columns.AutoFit
Cells(1, 1).Select
with .pagesetup '... wie muss hier die syntax lauten?
end with
End With
End Sub
Es geht auch nicht mit ActiveWindow.SelectedSheets.PageSetup.
Der macht das immer nur beim aktivierten Sheet.
Gruß Ralf