Fusszeilenmakro mit Odnerstruktur "&"
20.03.2007 08:13:21
martin
Ich habe für mich ein Fusszeilenmakro erstellt. Diese hat bis dato einwandfrei funktioniert. Leider hat nun unsere IT-Abteilung neue Ordnerstrukturen angelegt. Das Makro hat nun ein Problem mit der Ordnerstruktur: 07_RW&CO - dies liegt wahrscheinlich am & Zeichen. Hat jemand von Euch einen Lösungsansatz?
Grüsse Martin
Sub FusszeileEinfügen()
' With Application
' .StandardFont = "Arial"
' .StandardFontSize = "4"
' End With
'Mldg = "Bitte Initialen eingeben" ' Aufforderung festlegen.
'Titel = "Initialen" ' Titel festlegen.
'Voreinstellung = "MM" ' Voreinstellung festlegen.
' Meldung, Titel und Standardwert anzeigen.
Initial = FussIni.Initialen.Value
Abteil = FussIni.Abteilung.Value
SGrösse = FussIni.FontSi.Value
If Initial = "" Or Abteil = "" Then Exit Sub
Pfad = Application.ActiveWorkbook.Path + "\"
For Each sh In Application.ActiveWorkbook.Windows(1).SelectedSheets
With sh.PageSetup
.LeftFooter = "&" & SGrösse & " Zürich, &D " & Abteil & "/" & Initial
.RightFooter = "&" & SGrösse & "&P/&N"
.CenterFooter = "&" & SGrösse & " " & Pfad & "&F / &A"
'.Zoom = Zoomauto
End With
Next
' With Application
' .StandardFont = "Arial"
' .StandardFontSize = "10"
' End With
End Sub
Sub FusszeileAufheben()
For Each sh In Application.ActiveWorkbook.Windows(1).SelectedSheets
With ActiveSheet.PageSetup
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
Next
End Sub
Sub FormFusszeile()
BearbeitenFusszeile.Show
End Sub