Hallo Gemeinde,
ich suche eine Möglichkeit, eine Excel 2003 Arbeitsmappe per VBA mit Einträgen in den Kopf und Fusszeilen zu versehen.
Ich stelle mir das so vor:
Ich mache im Bereich Z1:Z3 des Tabellenblattes mit dem Namen
„Liesmich zuerst“ 3 Eintragungen.
Und zwar für:
Z1= Kopfzeile Links „Name 1“
Z2= Kopfzeile Mitte „Name 2“
Z3= Kopfzeile Rechts „Name 3“
Das Makro könnte dann starten, wenn Z3 einen Eintrag bekommt.
Es sollen weiterhin übernommen werden :
Fußzeile Links = immer Dateiname
Fußzeile Mitte = Seite x von y Seiten
Fußzeile Rechts= immer Registername
Die Exelarbeitsmappe besteht einmal als Vorlage.xlt.
Die in Benutzung befindlichen Mappen haben unterschiedlich viele Tabellenblätter.
Sie wird weiterentwickelt und je nach Erfordernis angepasst.
Ist dies sehr kompliziert zu machen?
Wenn nein, wäre jemand bereit mir ein solches zu basteln?
Gruß Rumburak
Hallo
Füge dieses Makro in den Code für Tabelle „Liesmich zuerst“ ein:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
If Target.Address = „$Z$3“ Then
For Each ws In ActiveWorkbook.Worksheets
With ws.PageSetup
.LeftHeader = ActiveSheet.Cells(1, 26).Value
.CenterHeader = ActiveSheet.Cells(2, 26).Value
.RightHeader = ActiveSheet.Cells(3, 26).Value
.LeftFooter = „&F“
.CenterFooter = „Seite &:stuck_out_tongue_winking_eye: von &N Seiten“
.RightFooter = „&A“
End With
Next ws
End If
End Sub
Und?
Gruß
smalbop
VBA Kopfzeilen Fußzeilen automatisch ausfüllen
Hallo Rumburak,
ich hab für’s Archiv mal den Betreff geändert.
Eine gute Lösung hast du ja erhalten.
Gruß
Reinhard
Hallo Smalbop,
einfach genial.
Ich danke Dir für Deine schnelle und so vorzügliche Hilfeleistung.
Mit freundlichen Grüßen
Rumburak
Hallo Reinhard,
eine gute Idee.
kann vielleicht noch jemand mal was mit anfangen.
Danke.
Mit freundlichen Grüßen
Rumburak