ich habe mir eine VBA gebastelt, das so auch funktioniert.
Es formatiert alle Tabellenblätter.
Dadurch, dass es in jemdem Blatt die Fußzeilen setzen muss, läuft das aber sehr sehr lang.
Oft habe ich nun Dateien mit mehr als 20 Tabellenblättern.
Deshalb wäre ich dankbar, wenn es eine Möglichkeit gäbe, dieses VBA zu beschleunigen.
Danke für eure Hilfe.
John
Sub A11_ErlaeuterungenFormateieren()
' Makro1 Makro
' Makro am 08.04.2011 von J. Kopp aufgezeichnet
Application.ScreenUpdating = False
' ActiveWorkbook.Sheets.Select
For Blätter = 1 To Sheets.Count
Sheets(Blätter).Select
With ActiveSheet.PageSetup
.LeftFooter = "&""FuturaA Bk BT,Book"" &8ZK/CA, J. Kopp, &D"
.RightFooter = "&""FuturaA Bk BT,Book""&8 &F, &A"
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.511811023622047)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.47244094488189)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
End With
' ActiveCell.Offset(2, 0).Rows("1:101").EntireRow.Select
' Selection.Interior.ColorIndex = xlNone
Next Blätter
ActiveWorkbook.Sheets.Select
Rows("5:1000").Select
Selection.Interior.ColorIndex = xlNone
Selection.Font.Name = "Arial"
Range("A1").Select
Sheets(1).Select
Application.ScreenUpdating = True
End Sub