Überschriften per VBA übernehmen
25.08.2005 16:47:28
Wolfgang
der folgende "Teilcode" bewirkt wohl, dass die Überschrift in Zeile 1 in ein jeweils zu druckendes Blatt übernommen wird. Wie stelle ich ihn um, wenn ich direkt in der Arbeitsmappe erreichen möchte, dass die Überschrift in ein jeweils (per VBA) neu angelegtes Tabellenblatt übernommen wird.? Ich habe das einmal mit dem Makrorekorder getestet, grundsätzlich funktioniert das auch, allerdings wird das Format der Überschrift (Fettdruck, Sperrschrift etc.) dann noch in die nächsten zwei Zeilen übertragen. Hat jemand eine Idee, was ich ändern muß oder umdenken muß? - Danke schon jetzt Allen wieder für die Mitwirkung und
Grüße - Wolfgang
Hier zunächst der "Teilcode":
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
End With
Hier der "Makrorekordercode" (der das Format aber noch in die nächsten Zeilen übernimmt)
Sub Überschrift()
Rows("1:1").Select
Selection.Copy
Sheets("Tabelle2").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
End Sub
Anzeige