ich habe zwei Fragen an die Experten:
1. ich will im linken Fußzeilenbereich (LeftFooter) die gleiche Schriftgröße 8 verwenden wie in allen anderen bereichen der Kopf- und Fußzeile. Bei den Variablen klappt das hier aber nicht durch Voranstellen von &8. Was muß ich tun?
Excel übernimmt anscheinend die Schriftgröße 10 aus irgendeinem Standard oder aus dem Tabellenblatt, in dem ich Name, telefon und Abteilung eingefügt habe.
Sub AddAllHeaderFooter()
Dim Tabelle As Worksheet
For Each Tabelle In ActiveWorkbook.Worksheets
With Tabelle.PageSetup
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.551181102362205)
.BottomMargin = Application.InchesToPoints(0.551181102362205)
.HeaderMargin = Application.InchesToPoints(0.196850393700787)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.LeftHeader = "&8&F / &A" & vbCr & FrmData.TxtThema
.CenterHeader = "&""Logoschrift""&28a"
.RightHeader = "&8Version: " & FrmData.TxtVersion & Chr(10) & "&D"
.LeftFooter = PName$ & " / " & vbCr & Tel$ & " / " & ABT$
.CenterFooter = "&8Firmenname" & Chr(10) & "&8Deutschland"
.RightFooter = "&8Seite &P von &N"
End With
Next Tabelle
End Sub
2. Die Performance ist nur sehr mäßig. Wenn ich 4 Blätter habe und das Makro in eine For-next-Schleife stelle, dauert es ziemlich lange. Gibt es Möglichkeiten, das schneller zu machen?
Danke vorab für eure Ideen.
Viele Grüße
Volker aus Köln