PDA

Vollständige Version anzeigen : Tabellenüberschriften


alivecc
24.08.2001, 10:09
Ich habe eine Tabelle die so ca. 80 Seiten groß ist. Nun möchte ich, daß die Spaltenüberschriften auf jeder dieser Seiten auftaucht.

Wie kann ich das festlegen ???

Danke !!!

<p align="left"><font size="1" face="Century Gothic"><font color="#000000">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag ein Link entfernt.</font>

Alfons Seeberger
24.08.2001, 11:21
Hallo,
die Überschriften stehen in Tabelle1 / Zeile1 / die ersten 3 Spalten:
<font size="2" face="Courier New, FixedSys"><blockquote><font color="#0000CC">Sub</font> Tabellen()<font color="#000000">
&nbsp; <font color="#0000CC">Dim</font> s <font color="#0000CC">As Object</font>
&nbsp; <font color="#0000CC">Dim</font> x$, y$, z$
</font><font color="#009900">'Überschriften aus Tabelle1 in alle Tabellen übertragen</font><font color="#000000">
&nbsp; x = Worksheets("Tabelle1").Range("A1")
&nbsp; y = Worksheets("Tabelle1").Range("B1")
&nbsp; z = Worksheets("Tabelle1").Range("C1")

&nbsp; <font color="#0000CC">For Each</font> s <font color="#0000CC">In</font> Worksheets
&nbsp; &nbsp; s.Activate
&nbsp; &nbsp; [A1] = x
&nbsp; &nbsp; = y
&nbsp; &nbsp; [C1] = z
&nbsp; <font color="#0000CC">Next</font> s
&nbsp;
<font color="#0000CC">End Sub</font></font></font></blockquote></font><font face="FixedSys, Courier New">

Gruß
Alfons
<a href="http://people.freenet.de/a.seeberger/"><br><img src="http://people.freenet.de/a.seeberger/grafi/allesExcel.gif" alt="" border="0"></a>

<p align="left"><font size="1" face="Century Gothic"><font color="#000000">[b]Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag der Link korrigiert.</font>

peppi
24.08.2001, 12:09
Hallo,
was willst Du?
a) Daß die Tabellenüberschriften auf jeder Seite gedruckt werden,
b) oder Du diese beim runterscrollen immer siehst?
c) Oder hast Du 80 Tabellenblätter in Deiner Arbeitsmappe?

Zu a)
Datei/Seite einrichten Register Tabelle: Wiederholungszeile(n) - setze den Cursor rein und klicke im Hintergrund auf die Zeile(n), die auf jeder Seite erscheinen sollen.

Zu b)
Aktiviere Zelle A2 und Klicke im Menü Fenster auf fixieren

Zu c)
Kopiere die Überschriften aus dem Tabellenblatt, in dem sie drinstehen, markiere alle anderen Tabellenblätter (aufs erste klicken, Shift-Taste festhalten, aufs letzte klicken), markiere die erste Zeile, klicke auf die rechte Maustaste und wähle "kopierte Zellen hier einfügen".

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag die Signatur angepasst...</font>

HiDus
24.08.2001, 12:11
Hi,

.... oder über "Datei" => "Seite einrichten" => "Tabelle" => Wiederholungszeilen bzw. -spalten

Gruss