|
VBA - Fusszeile in Personl.xls |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Samstag, 21. März 2009 um 07:08 Uhr |
|
Mit diesem Makro in der Personl.xls könnt ihr Euch schnell Euere Fußzeile nach Eueren Wünschen einrichten. Wichtig ist allerdings zu wissen: Solltet ihr eine Tabelle in ein anderes Verzeichnis kopieren: Der Pfad wird hier nicht automatisch angepasst. Ihr müsst diesen wieder mit diesem Makro anpassen lassen. Da man sich aber eh für ein Makro einen Schalter in der Menüleiste anlegt, ist das wohl nicht das grosse Problem. Der folgende Code gehört in ein Modul:
Option Explicit
Option Private Module
Dim Zahl As Integer
Dim Info As Integer
Sub Fusszeile()
Application.ScreenUpdating = False
If Workbooks.Count = 1 Then
Info = MsgBox("Es ist doch noch keine Arbeitsmappe geöffnet!" & Chr(10) & _
"Wo soll denn da eine Fußzeile gesetzt werden?", 32, "Keine Mappe geöffnet!")
Exit Sub
End If
If IsDate(ActiveWorkbook.BuiltinDocumentProperties(12)) = False Then
Info = MsgBox("Sie müssen die Datei erst speichern!")
Exit Sub
End If
For Zahl = 1 To Worksheets.Count
Worksheets(Zahl).Activate
With ActiveSheet.PageSetup
If .LeftFooter <> "" Or .CenterFooter <> "" Or .RightFooter <> "" Then
Info = MsgBox("Fußzeile vorhanden. Soll diese ersetzt werden?", 308, "Sicherheitsabfrage")
If Info = 7 Then Exit Sub
End If
.LeftFooter = "&""Arial Narrow,Standard""&8erstellt am: " & Date
.CenterFooter = "&""Arial Narrow,Standard""&8&P"
.RightFooter = "&""Arial Narrow,Standard""&8" & ActiveWorkbook.FullName
'Für Excel 2003 kann man folgendes nutzen:
'.RightFooter = "&""Arial Narrow,Standard""&8&Z&F"
'Erläuterung:
'&8 =Schriftgröße, &Z =Pfad, &F =Dateiname, &A =Tabellenblattname
.FirstPageNumber = xlAutomatic
End With
Next
Application.ScreenUpdating = True
End Sub
Wichtiger Hinweis: Damit ihr das Makro mit einem Schalter verbinden könnt müsst ihr erst einmal die Zeile Option Private Modul auskommentieren, denn sonst wird das Makro nicht gefunden.
|
|
Zuletzt aktualisiert am Samstag, 21. März 2009 um 09:13 Uhr |
VBA Makro Beispiele 