Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
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
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenüberschrift auf jeder Druckseite anzeigen

Forumthread: Spaltenüberschrift auf jeder Druckseite anzeigen

Spaltenüberschrift auf jeder Druckseite anzeigen
03.03.2009 12:25:07
Stefan
Hallo,
wie bekomme ich es hin, dass bei einem Mehrseitendruck immer die Spaltenüberschrift ("I1:Z1")
auch auf der zweiten, dritten usw. Seite zur Orientierung angegeben wird?
Mein Code sieht bislang wie folgt aus:

Sub DruckBereich()
Dim X As Range
Set X = Range(Cells(1, 9), _
Cells(Cells(Rows.Count, 9).End(xlDown).Row, 26))
ActiveSheet.PageSetup.PrintArea = X.Address
ActiveSheet.PrintPreview
End Sub


Danke für Euere Hilfe, Stefan

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenüberschrift auf jeder Druckseite anzeigen
03.03.2009 12:30:38
Josef
Hallo Stefan,
Sub DruckBereich()
  
  Dim X As Range
  
  Set X = Range(Cells(1, 9), _
    Cells(Cells(Rows.Count, 9).End(xlDown).Row, 26))
  With ActiveSheet.PageSetup
    .PrintArea = X.Address
    .PrintTitleRows = "$1:$1"
  End With
  ActiveSheet.PrintPreview
  
End Sub

Gruß Sepp

Anzeige
AW: Spaltenüberschrift auf jeder Druckseite anzeigen
03.03.2009 12:38:41
Stefan
Vielen Dank!
Gruß, Stefan
AW: Spaltenüberschrift auf jeder Druckseite anzeigen
03.03.2009 12:49:53
fcs
Hallo Stefan,
im Prinzip so:

Sub DruckBereichSetzen()
Dim X As Range, wks As Worksheet
Set wks = ActiveSheet
With wks
Set X = .Range(.Cells(1, 9), _
.Cells(.Cells(.Rows.Count, 9).End(xlDown).Row, 26))
.PageSetup.PrintArea = X.Address
.PageSetup.PrintTitleRows = .Rows(X.Row).Address
.PrintPreview
End With
End Sub


Allerdings soltest du den Namen "DruckBereich" nicht für eine Prozedur wählen, da es ein in Excel reservierter Name ist. ggf. kann es Probleme geben.
Die Anweisung für Set X kannst du in deinem Fall auch kürzen zu:


Set X = .Range(.Columns(9), .Columns(26))

Gruß
Franz

Anzeige
;

Forumthreads zu verwandten Themen

Überschriftzeile auf jeder Druckseite
thoemmy

Hallo VBAler
Ich habe eine ewig lange Tabelle die ich drucken möchte.
Ist es möglich dass man angibt, dass auf jeder neuen (Druck)Seite die Überschriftzeile an erster Stelle steht.
In meinem Fall ist der Überschriftsbereich Range(Cells(1,1),Cells(5,35)).
Danke für eure Tipps und...
18.05.2009 13:51:52
Thread-ID: 1075888
2 Beiträge
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
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
Ä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
Ä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
Kopfzeilen nicht auf erster Seite
Heindl

Hallo,
ich habe ein Tabellenblatt (Excel2000), dass beim Ausdrucken mehrere Seite lang ist. Ich möchte erreichen, dass die Kopfzeile nicht auf der ersten Seite gedruckt wird, sondern nur auf allen restlichen Seiten.
Ich habe hierzu durch die Suchfunktion auch schon eine Lösung gefunde...
26.02.2010 08:26:43
Thread-ID: 1141655
2 Beiträge
Name für alle Blätter, dynamisch, aber ohne...
Norbert

Hallo
ich möchte für alle Tabellenblätter einer Arbeitsmappe einen Namen definieren, dynamisch, da später weiter Blätter hinzukommen. Dies ist ja mit der Formen =ARBEITSMAPPE.ZUORDNEN(1+0*JETZT()) möglich.
Aber: Die Tabelle 1 und die Tabelle 3 sollen ausgenommen sein.
Kann mir jema...
02.05.2010 11:51:04
Thread-ID: 1154936
4 Beiträge
Makro für alle Arbeitsblätter
Basti

Guten Morgen zusammen,
am frühen Morgen macht VBA mal wieder nicht das, was ich möchte.
Folgendes Problem:
Ich habe ein Makro in einem Arbeitsblatt aufgezeichnet und möchte nun, dass dieses Makro in allen Arbeitsblättern ausgeführt wird. (Die Anzahl der Arbeitsblätter sind in mehrer...
27.08.2010 08:50:58
Thread-ID: 1174432
8 Beiträge
Spaltenüberschrift auf jeder Seite drucken
Pit

Hallo zusammen,
ich habe ein Problem mit der Spaltenüberschirft.
In meiner Excel - Tabelle habe ich Spaltenüberschriften (A1:K1) vergeben. Die Tabelle zieht sich über mehrere Seiten (es werden wohl ca. 100 Seiten werden). In Excel selbst habe ich mir die Spaltenüberschrift fixiert, so d...
03.03.2011 14:42:26
Thread-ID: 1204064
3 Beiträge
Blattschutz für alle Arbeitsblätter aufheben
Wolfango

Guten Morgen,
ich suche einen VBA-Code, mit welchem ich auf einen Schlag für alle (Anzahl beliebig) in einer Datei vorhandenen Arbeitsblätter den Blattschutz aufheben kann (bei bekanntem Passwort).
Danke!
Gruß,
Wo.
06.05.2011 09:23:08
Thread-ID: 1213302
3 Beiträge
Alle Datensätze auf jedem Tabellenblatt sortieren
Pascal

Guten Tag
Ich habe eine grössere Excel-Arbeitsmappe in welcher verschiedenste Artikelnummern / Artikeldaten gesammelt werden.
Nun möchte ich mittels eines Makros auf allen Tabellen jeweils die Datensätze aufsteigend (nach abc) sortiert haben (immer Spalte B)
Dazu hab ich mir mal fol...
30.12.2011 10:54:18
Thread-ID: 1243943
8 Beiträge
Anzeige
Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie

Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
---...
06.05.2012 15:13:47
Thread-ID: 1262489
9 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