Kopfzeile nur auf erster Seite?
Berthold Alt
in meiner Excel 2003 Tabelle habe eine benutzerdefinierte Kopfzeile
gewählt und im mittleren Abschnitt "Liste vom: &[Datum]" eingefügt.
Diesen Eintrag habe ich als Überschrift gestaltet und möchte ihn
deshalb nur auf der ersten Seite ausdrucken.
Gibt es dafür eine einfache Möglichkeit?
Wenn ich dazu auf VBA zurückgreifen muss, und jemand helfen will, dann
bitte ich um die entsprechende Befehlszeile.
mfG
Berthold Alt
thomas...@gmail.com
On 15 Feb., 22:46, Berthold Alt <Berthold....@web.de> wrote:
>
> in meiner Excel 2003 Tabelle habe eine benutzerdefinierte Kopfzeile
> gewählt und im mittleren Abschnitt "Liste vom: &[Datum]" eingefügt.
> Diesen Eintrag habe ich als Überschrift gestaltet und möchte ihn
> deshalb nur auf der ersten Seite ausdrucken.
>
> Gibt es dafür eine einfache Möglichkeit?
Excel unterscheidet sich hier im Konzept sehr grundsätzlich von Word.
Du musst deine Daten auf mehrere Tabellenblätter aufteilen und im
ersten nur die Daten auflisten, die auf dem ersten Blatt stehen
sollen.
Beim Drucken mit Strg+P wählst Du dann '[x] Ganze Arbeitsmappe' damit
die Seitenzahlen über alle Seiten berechnet werden.
Mit freundlichen Grüssen
Thomas Ramel
- MVP für MS-Excel -
Berthold Alt
> Grüezi Berthold
>
> On 15 Feb., 22:46, Berthold Alt <Berthold....@web.de> wrote:
>>
>> in meiner Excel 2003 Tabelle habe eine benutzerdefinierte Kopfzeile
>> gewählt und im mittleren Abschnitt "Liste vom: &[Datum]" eingefügt.
>> Diesen Eintrag habe ich als Überschrift gestaltet und möchte ihn
>> deshalb nur auf der ersten Seite ausdrucken.
>>
>> Gibt es dafür eine einfache Möglichkeit?
>
> Excel unterscheidet sich hier im Konzept sehr grundsätzlich von Word.
>
> Du musst deine Daten auf mehrere Tabellenblätter aufteilen und im
> ersten nur die Daten auflisten, die auf dem ersten Blatt stehen
> sollen.
>
Danke Thomas für den guten Tip. Er ist allerdings in meinem speziellen
Fall etwas unhandlich, weil -das hätte ich erwähnen sollen- die
Zeilenanzahl der Tabelle durch Hinzufügen oder Entfernen von Zeilen
häufig geändert wird. Auch am Tabellenanfang und damit auf der ersten
Seite. Ich müsste also zur Bearbeitung der Daten die Tabellenblätter
nach jedem Ausdruck zusammemführen und vor jedem Ausdruck neu
aufteilen. Na ja, ich kann damit leben.
Gruß
Berthold
Andreas Killer
> in meiner Excel 2003 Tabelle habe eine benutzerdefinierte Kopfzeile
> gewählt und im mittleren Abschnitt "Liste vom: &[Datum]" eingefügt.
> Diesen Eintrag habe ich als Überschrift gestaltet und möchte ihn deshalb
> nur auf der ersten Seite ausdrucken.
>
> Gibt es dafür eine einfache Möglichkeit?
Füge eine Zeile über dem ersten Datensatz Deiner Tabelle ein, verbinde
alle Zellen dieser Zeile in der Breite Deines Datensatzes, wähle als
Textausrichtung dieser verbundenen Zelle zentriert und füge diese
Formel in die Zelle ein:
="Liste vom: " & TEXT(HEUTE();"TT.MM.JJJJ")
Andreas.
Berthold Alt
genau das hatte ich schon versucht, aber dann konnte ich nicht per
Makro nach Spalten sortieren, Abbruch wegen Laufzeitfehler 1004, "alle
verbundenen Zellen müssen gleiche Größe haben" und das wollte ich
nicht. Aber jetzt kommt mir der Gedanke, dass ich nach dem Einfügen der
Überschrift den Makro vielleicht nicht angepaßt hatte und wenn doch,
werde ich mal versuchen, im Makro am Anfang und Ende die Verbindung
aufheben, bzw. wiederherstellen zu lassen. Das dauert noch etwas.
Von Hand sortieren geht jedenfalls prima. Die Überschrift ist nur auf
der ersten Seite und die Spaltenüberschriften aus der zweiten Zeile
-als Wiederholungszeile $2:$2 eingetragen- erscheinen wie gewünscht als
erste Zeile auf den Folgeseiten.
Gruß
Berthold
Andreas Killer
> Makro nach Spalten sortieren, Abbruch wegen Laufzeitfehler 1004, "alle
> verbundenen Zellen müssen gleiche Größe haben" und das wollte ich
> nicht. Aber jetzt kommt mir der Gedanke, dass ich nach dem Einfügen der
> Überschrift den Makro vielleicht nicht angepaßt hatte und wenn doch,
Das wird der Fall gewesen sein, denn wenn ich z.B. Spalte A und B mit
Überschrift in Zeile 2 ab Zeile 2 sortieren möchte, geht das so:
Sub Main()
Range(Range("A2"), Range("B" & Range("B" & _
Rows.Count).End(xlUp).Row)).Sort Key1:=Range("A3"), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Andreas.