Microsoft Excel

Herbers Excel/VBA-Archiv

Im Header eine Linie ziehen mit VBA

Betrifft: Im Header eine Linie ziehen mit VBA von: Andresa Greiner
Geschrieben am: 12.08.2004 09:08:22

Hallo Leute,

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
  


Betrifft: AW: Im Header eine Linie ziehen mit VBA von: Nike
Geschrieben am: 12.08.2004 09:27:09

Hi,

in dem du die Zellen der erste Zeile deines Sheets
mit einem Rahmen auf der Oberkante versiehst?
Der Header wird ja oben angesetzt...

Bye

Nike


  


Betrifft: AW: Im Header eine Linie ziehen mit VBA von: Andreas Greiner
Geschrieben am: 12.08.2004 10:38:09

Hallo Nike,

ich bin ein sehr fauler Mensch und habe mir dieses Makro in meiner PERSONL.xls gespeichert, so dass ich es für jedes meiner Shits habe und ich dieses Makro nur mehr per Tastenkombi aufrufen muss. Wenn ich jetzt einen Rahmen händisch zeichne, dann muss ich wieder jedes Sheet angreifen - was mir als fauler Mensch keinen Benefit bringt.

Was ratet ihr einem faulen Menschen wie mir? Tricks?

lg,
Andreas


  


Betrifft: AW: Im Header eine Linie ziehen mit VBA von: Udo
Geschrieben am: 12.08.2004 12:12:57

Zeichne dir ein Makro auf.

Udo


 

Beiträge aus den Excel-Beispielen zum Thema "Im Header eine Linie ziehen mit VBA"