Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in Zeile 1-3 Überschriften--Druck auf allen Seiten

Forumthread: in Zeile 1-3 Überschriften--Druck auf allen Seiten

in Zeile 1-3 Überschriften--Druck auf allen Seiten
20.07.2005 12:48:32
Peter
Hallo liebe Helfer,
mit nachstehendem Code drucke ich diese Liste aus, es klappt auch einwandfrei. Aber in den Zeilen 1 bis 3 stehen Spaltenüberschriften usw; diese werden nur auf der ersten Seite mit ausgedruckt.
Wie kann ich diese automatisch auf jeder Seite mit ausdrucken lassen?

Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
If ComboBox1.Value = 2003 Then
Worksheets("2003").Visible = True
Worksheets("2003").Activate
With Worksheets("2003").PageSetup
.Orientation = xlLandscape
End With
With Worksheets("2003").PageSetup
If Range("A963").Value <> "" Then
.PrintArea = "A1:H999"
ElseIf Range("A926").Value <> "" Then
.PrintArea = "A1:H962"
ElseIf Range("A889").Value <> "" Then
.PrintArea = "A1:925"
ElseIf Range("A852").Value <> "" Then
.PrintArea = "A1:H888"
ElseIf Range("A815").Value <> "" Then
.PrintArea = "A1:H851"
ElseIf Range("A778").Value <> "" Then
.PrintArea = "A1:H814"
ElseIf Range("A741").Value <> "" Then
.PrintArea = "A1:H777"
ElseIf Range("A704").Value <> "" Then
.PrintArea = "A1:H740"
ElseIf Range("A667").Value <> "" Then
.PrintArea = "A1:H703"
ElseIf Range("A630").Value <> "" Then
.PrintArea = "A1:H666"
ElseIf Range("A593").Value <> "" Then
.PrintArea = "A1:H629"
ElseIf Range("A556").Value <> "" Then
.PrintArea = "A1:H592"
ElseIf Range("A519").Value <> "" Then
.PrintArea = "A1:H555"
ElseIf Range("A482").Value <> "" Then
.PrintArea = "A1:H518"
ElseIf Range("A445").Value <> "" Then
.PrintArea = "A1:H481"
ElseIf Range("A408").Value <> "" Then
.PrintArea = "A1:H444"
ElseIf Range("A371").Value <> "" Then
.PrintArea = "A1:H407"
ElseIf Range("A334").Value <> "" Then
.PrintArea = "A1:H370"
ElseIf Range("A297").Value <> "" Then
.PrintArea = "A1:H333"
ElseIf Range("A260").Value <> "" Then
.PrintArea = "A1:H296"
ElseIf Range("A223").Value <> "" Then
.PrintArea = "A1:H259"
ElseIf Range("A186").Value <> "" Then
.PrintArea = "A1:H222"
ElseIf Range("A149").Value <> "" Then
.PrintArea = "A1:H185"
ElseIf Range("A112").Value <> "" Then
.PrintArea = "A1:H148"
ElseIf Range("A75").Value <> "" Then
.PrintArea = "A1:H111"
ElseIf Range("A37").Value <> "" Then
.PrintArea = "A1:H74"
ElseIf Range("A4").Value <> "" Then
.PrintArea = "A1:H36"
End If
End With
Worksheets("2003").PrintOut Copies:=1
Worksheets("2003").Visible = xlVeryHidden
Sheets("Bearbeitung").Activate
End If
End Sub

Vielen Dank für Hilfe
Peter S.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in Zeile 1-3 Überschriften--Druck auf allen Seiten
20.07.2005 12:50:53
Hajo_Zi
Hallo Peter,
Datei, Seite einrichten, Tabelle, Wiederholungszeilen.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige
Danke Hajo---habe es in VBA integriert
20.07.2005 13:59:01
Peter
Hallo Hajo,
vielen Dank, Du hast den entscheidenden Gedankenanstoß gebracht; ich habe folgende Zeile in den VBA-Code integriert:
.PrintTitleRows = "$1:$3"
Klappt bestens und is einfacher, da es sehr viele Tabellen gibt die angesprochen werden können.
Gruß
Peter S.
;

Forumthreads zu verwandten Themen

Titel auf jedem gedruckten Blatt sichtbar
Jan

Hallo zusammen
ich möchte dass ein Titel auf jedem gedruckten Blatt sichtbar ist.
Bsp so:
Habe folgende Tabelle...
Artikel ______ Menge______Preis
darunter folgen etwa 5000 Zeilen mit Artikeln, deren Menge und deren Preise.
Jetzt möchte ich aber, dass wenn ich drucke, i...
19.06.2009 09:43:10
Thread-ID: 1082792
3 Beiträge
Autofilter über mehrere Tabellenblätter
Burk

Hallo,
ich habe mehre Blätter in einer Mappe mit jeweils einer großen Liste
Gibt es die Möglichkeit Datensätze mit einem bestimmten Feldeintrag über mehre Blätter hinweg gleichzeitig herauszufiltern, wie es der Autofilter mit einer Tabelle macht?
Vielleicht mit VBA?
Bin für alle...
02.07.2009 11:17:06
Thread-ID: 1085862
5 Beiträge
Passworte für alle Blätter
Bernd

Hallo,
mit folgendem Code belege ich sämtliche Blätter mit einem Passwort.
Das Problem ist, dass auch andere Arbeitsmappen auf sämtlichen Seiten einen Passwortschutz erhalten.
Das soll nicht sein. Nur in der einen Mappe sollen die Blätter geschüztz werden.
Was muss an dem Code g...
04.09.2009 18:22:14
Thread-ID: 1100680
3 Beiträge
Anzeige
Änderungsprotokoll! Aber NICHT für alle Blätter?
Gero

Hallo liebe Profis,
kurze Frage:
Ich will Änderungen meiner Arbeitsmappe / Tabellenblätter protokollieren.
Die tue ich durch:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim rng As Range For Each rng In Target watchChanges Sh.Name, rng.Address(0,...
18.11.2009 11:10:43
Thread-ID: 1118237
11 Beiträge
MIN über mehrere Blätter
Thomas

Hallo liebe Gemeinde,
und frohes neues Jahr erst einmal.
Ich möchte gerne einen Streckenrekord einer bestimmten Streckenlänge anzeigen lassen.
Hierzu habe ich mehrere Sheets mit Ergebnislisten aus den vergangenen Jahren mit Namen "2009", "2008" usw.
Darin befinden sich in Spalte...
02.01.2010 13:14:28
Thread-ID: 1126702
5 Beiträge
Änderung für alle Tabellenblätter übernehmen | Herbers Excel-Forum
Thomas
Hallo liebe VBAler
Ich hab eine Excel Datei mit 12 Tabellenblätter (Januar-Dezember).
Ände ich nun z.B. im Tabellenblatt Januar in Spalte A und B etwas, oder füge/lösche eine Zeile ein, dann soll er dies für alle anderen Tabellenblätter übernehmen.
Bis jetzt habe ich dies über Workshee...
14.01.2010 09:11:14
Thread-ID: 1129753
4 Beiträge
summe über mehrere Tabellenblätter
Volker

Hallo Liebe Excel- Gemeinde
In einem Forum habe ich mal eine Hinweis auf eine "Summen- Formel" gelesen, die aus einer Arbeitsmappe eine Summe aus allen Tabellenblätter dieser Mappe aus einer bestimmten Zelle zusammen bildet.
Also mein Problem ist
1. aus einer Arbeitsmappe immer die...
31.01.2010 13:23:17
Thread-ID: 1134569
6 Beiträge
Änderung in allen Worksheets
highman4

Hallo Excelfreunde,
Ich möchte eine Berechnung in allen Arbeitsblättern (ca. 150) vornehmen lassen.
Folgender Code:
Sub Bestellung_Ausloesen() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If Cells(10, 2) > Cells(9, 2) Then Cells(11, 2) = 0 Else Cells(11, 2) = Cells(...
05.02.2010 07:11:14
Thread-ID: 1135983
3 Beiträge
SUMMEWENN über mehrere Tabellenblätter
Wolf

Hallo, kann ich denn die Formel SUMMEWENN über mehrere Tabellenblätter anwenden?
Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine selbst zu erstellende Liste mittels eines Klappmenüs auszuwählen.
Damit es nicht allzu abstrakt ist: Es handelt sich um ein Raumbuch...
10.02.2010 11:54:52
Thread-ID: 1137344
2 Beiträge
Anzeige
SUMMEWENN über mehrere Tabellenblätter
Wolf

Hallo, kann ich denn die Formel SUMMEWENN über mehrere Tabellenblätter anwenden?
Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine selbst zu erstellende Liste mittels eines Klappmenüs auszuwählen.
Damit es nicht allzu abstrakt ist: Es handelt sich um ein Raumbuch...
10.02.2010 12:57:50
Thread-ID: 1137372
4 Beiträge
SUmme über mehrere Tabellenblätter bilden
Wolf

Hallo, ich hatte schon mal diese Frage gestellt, aber mit der Antwort kam ich nicht richtig weiter (10.2.10).
Ich muss die Formel SUMMEWENN über mehrere Tabellenblätter anwenden. Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine auf einem eigenen Tabellenblatt selbst...
24.02.2010 12:24:40
Thread-ID: 1141005
9 Beiträge
Anzeige
Indirekt über mehrere Tabellenblätter
Jessica

Hallo,
ich habe ein Problem, für das ich bereits in einem älteren Thread eine Lösung gefunden habe. Leider funktioniert das bei mir nicht! :-(
Ich habe 12 Sheets mit den Namen "Januar" bis "Dezember"
Auf dem Übersichtsblatt möchte ich in D2 den Monat eingeben, z.B. März und dann sol...
27.02.2010 08:14:02
Thread-ID: 1141906
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige