Hallo zusammen,
bastel gerade an einem Kassenbuch und bin soweit fertig. Pro Monat soll es ein Tabellenblatt geben.
Per VBA wurde die Kopfzeile und das Drucken der Seite(n) programmiert. Hier werden Daten aus zwei Zellen übernommen, die vom User ausgefüllt werden. Für das erste Tabellenblatt funktioniert alles prima.
Wird die Tabelle für den nächsten Monat kopiert, werden die Daten in K4 und K11 nicht aus dem neuen Tabellenblatt übernommen sondern immer von dem ursprünglichen Tabellenblatt.
Was mache ich falsch?
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.LeftHeader = "&""Calibri,Bold""&12" & "Überschrift"
ActiveSheet.PageSetup.RightHeader = ""
ActiveSheet.PageSetup.CenterHeader = "&""Calibri,Bold""&14" & Range("K11")
ActiveSheet.PageSetup.LeftFooter = "Name " & Range("k4") & B & U
ActiveSheet.PageSetup.CenterFooter = ""
ActiveSheet.PageSetup.RightFooter = "Seite &P von &N"
End With
Schon mal Danke
Sabine
|