Im Header eine Linie ziehen mit VBA
12.08.2004 09:08:22
Andresa
ich habe mir ein kleines Makro (unter anderem mit eurer Hilfe) geschnitzt. Dieses habe ich jetzt erweitert und möchte gerne im ganzen Header Bereich eine durchgängige Linie ziehen.
Meine derzeitige Funktion lautet:
Sub Header()
Dim wa As Worksheet
strTest = "Berichtswesen"
strRechts = "My Company"
For Each wa In ActiveWorkbook.Worksheets
wa.PageSetup.LeftHeader = "&14&B" & strTest & Chr(10) & "&B&8" & strRechts
Next
End Sub
Wie schaffe ich es, dass eine Linie diesen Header mit dem eigentlichen Tabellenblatt trennt?
Freu mich schon auf eure Tipps.
lg,
Andreas
Anzeige