Kopf- und Fusszeile
23.01.2007 09:36:34
Ludicla
ich hab einer Befehlsschaltfläche zur Kopf- und Fusszeilensteuerung
folgenden Code hinterlegt:
Private Sub setzen_Click()
On Error Resume Next
Dim Blatt As Object
For Each Blatt In Worksheets
Blatt.PageSetup.LeftFooter = "" & Date
Blatt.PageSetup.RightFooter = " " & Environ("UserName")
Blatt.PageSetup.CenterFooter = ActiveWorkbook.FullName & " " & Name
Blatt.PageSetup.LeftHeader = ""
Blatt.PageSetup.RightHeader = ""
Blatt.PageSetup.CenterHeader = ""
Next Blatt
End Sub
bei "Blatt.PageSetup.CenterFooter=AcktiveWorkboot.FullName & " " & Name"
ist der Name des Register hinterlegt.
Alldings schreibt der Code immer den Namen des ersten Registers über alle
Register und nicht das jeweils zutreffende Register.
Wie muss ich den Code anpassen damit er den Namer jeweils richtig setzt.
Jetz schon vielen Dank für euer Bemühen.
Gruss Ludicla
Anzeige