Formatierung; Fixierung; Wiederholungszeilen
10.03.2007 22:30:19
Walter
ich habe nachfolgendes Makro in Verwendung, in dem ich die Formatierung, Kopf- und Fußzeilen automatisiert habe. Nun suche ich die Erweiterungsmöglichkeit insofern, daß automatisch die Fixierung (jede Datei hat eine andere) und die Widerholungszeilen (ebenfalls in jeder Datei anders) per Abfrage im Makro einbauen kann.
D.h. Makro soll laufen, dann die Abfrage nach Fixierung und Wiederholungszeilen, dann die Eingabe des Users, dann zu Ende laufen.
Weiß jemand Rat ?
mit Dank
Walter
Nachfolgend das Makro:
Sub A4_hoch()
' A4_hoch Makro
' Makro am 09.02.04 von Hz (T.: 2831) aufgezeichnet
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.PrintArea = ""
Cells.Select
Cells.EntireColumn.AutoFit
' Selection.NumberFormat = _
' "_-* #,##0.00 _D_M_-;-* #,##0.00 _D_M_-;_-* ""-""? _D_M_-;_-@_-"
.PrintTitleRows = "$1:$1"
ActiveSheet.PageSetup.RightHeader = "&f; &A; " & BenutzerName & "; " & Format(Date, _
"dd.mm.yyyy")
.RightFooter = "&8Seite - &P / &N -"
.LeftMargin = Application.InchesToPoints(0.59)
.RightMargin = Application.InchesToPoints(0.39)
.TopMargin = Application.InchesToPoints(0.59)
.BottomMargin = Application.InchesToPoints(0.59)
.HeaderMargin = Application.InchesToPoints(0.31)
.FooterMargin = Application.InchesToPoints(0.31)
.FirstPageNumber = xlAutomatic
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 200
End With
With ActiveSheet.PageSetup
'Fixierung setzen
' ActiveWindow.FreezePanes = False
' Range("A2").Select
' ActiveWindow.FreezePanes = True
End With
ActiveWindow.SelectedSheets.PrintPreview
'Ende:
Application.Cursor = xlDefault
Application.StatusBar = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub