Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bestimmte Wiederholungszeilen auf Folgeseiten ausb

Forumthread: Bestimmte Wiederholungszeilen auf Folgeseiten ausb

Bestimmte Wiederholungszeilen auf Folgeseiten ausb
02.06.2017 18:28:57
Loh
Hallo,
folgendes Problem habe ich:
Auf der ersten Seite habe ich die Wiederholungszeilen $1$32
Beim Ausdrucken sollen diese nur auf der Seite 1 zu sehen sein,
ab der Seite 2 sollen die Zeilen 12 bis 31 ausgeblendet werden
Folgendes Makro habe ich gefunden (funktioniert aber nicht) bzw. gebastelt
Sub Ausdruck()
Dim A As Integer
For A = 1 To 2
Tabelle1.Cells.EntireRow.Hidden = False
'Zeilen die beim zweiten Ausdruck ausgeblendet werden sollen
If A = 2 Then Range("12:31").EntireRow.Hidden = True
'hier die entsprechende Seite anpassen
'1, 1 ist Seite 1 bis 1
Tabelle1.PrintOut 1, 1
Next A
Tabelle1.Cells.EntireRow.Hidden = False
End Sub

Erklärung:
Zeile 1 bis 11 beinhaltet meinen Kopf (Drucktitel/Wiederholungszeilen)
Zeile 12 bis 32 z.B. Erläuterung (nur Seite 1)
Zeile 32 Tabellenüberschrift (die sich auf den Folgezeiten wiederholen soll)
Im Drucktitel kann ich nur zusammenhängende Zeilen aktivieren.
Vielleicht hat jemand eine Lösung für mich!?
Vielen Dank!
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Wiederholungszeilen auf Folgeseiten ausb
02.06.2017 18:38:04
AlterDresdner
Hallo Loh,
versuche mal Tabelle1.PrintOut 1, 1 durch Tabelle1.PrintOut A, A zu ersetzen.
Gruß der AlteDresdner
AW: Bestimmte Wiederholungszeilen auf Folgeseiten ausb
02.06.2017 19:10:06
Loh
Hallo AlteDresdner,
danke für deine Antwort....
das hat leider nicht funktioniert.... :-(
AW: Bestimmte Wiederholungszeilen auf Folgeseiten ausb
02.06.2017 20:44:58
AlterDresdner
Hallo Loh,
bei mir würde das aber gehen, eine Beispieldatei mit den Ergebnissen ist dabei:
https://www.herber.de/bbs/user/113993.zip
Die Wiederholungszeilen müssen natürlich manuell eingerichtet sein...
Gruß der AlteDresdner
Anzeige
AW: Bestimmte Wiederholungszeilen auf Folgeseiten ausb
02.06.2017 21:39:11
Loh
Hallo AlterDresdner,
DANKE DANKE DANKE!
genau so möchte ich es haben, leider funktioniert deine Datei bei mir auch nicht.
Hab jetzt nochmal am Laptop geöffnet. Bin auf Drucken gegangen, alle Zeilen werden auch bei der 2.ten Seite angezeigt.
LG LOH
AW: Bestimmte Wiederholungszeilen auf Folgeseiten ausb
02.06.2017 23:33:34
Loh
Hab es jetzt hinbekommen, hab nicht über das Makro gedruckt, sondern hab übers das Menü gedruckt, das war mein Fehler *blöd bin....
Anzeige
AW: Bestimmte Wiederholungszeilen auf Folgeseiten ausb
05.06.2017 22:09:23
Loh
Folgendes Problem hab ich noch:
Über eine Schaltfläche habe ich jetzt das Makro drucken zugewiesen, gedruckt werden jetzt 2 separate Dateien, sollte aber nur eine Datei sein. Als Standarddrucker musste ich hier den PDF Drucker definieren, weil der Druck über eine Schaltfläche (mit d. zugewiesenen Makro) erfolgt. Geht das auch evtl. über Datei drucken, dass er mir das Makro ausführt? Oder kann über das Makro ein eine Druckerabfrage eingebaut werden?
Wenn meine Folgeseiten nicht bis Seite 2 gehen, sondern bis zur letzten gefüllten Zeile (Seitenanzahl variabel), gedruckt werden sollen, gibt es dafür eine Bezeichnung? Oder muss der Druckbereich festgelegt werden?
Sub Ausdruck()
Dim A As Integer
For A = 1 To 2

Tabelle1.Cells.EntireRow.Hidden = False
'Zeilen die beim zweiten Ausdruck ausgeblendet werden sollen
If A = 2 Then Range("12:31").EntireRow.Hidden = True
'hier die entsprechende Seite anpassen
'1, 1 ist Seite 1 bis 1
Tabelle1.PrintOut A, A
Next A
Tabelle1.Cells.EntireRow.Hidden = False
End Sub

Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Bestimmte Wiederholungszeilen auf Folgeseiten ausblenden


Schritt-für-Schritt-Anleitung

Um bestimmte Wiederholungszeilen in Excel nur auf der ersten Seite anzuzeigen und auf den Folgeseiten auszublenden, kannst Du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne Deine Excel-Datei und gehe zu der Tabelle, bei der Du die Wiederholungszeilen anpassen möchtest.

  2. Erstelle ein Makro mit dem folgenden VBA-Code:

    Sub Ausdruck()
       Dim A As Integer
       For A = 1 To 2
           Tabelle1.Cells.EntireRow.Hidden = False
           ' Zeilen die beim zweiten Ausdruck ausgeblendet werden sollen
           If A = 2 Then Range("12:31").EntireRow.Hidden = True
           ' Druckbereich anpassen
           Tabelle1.PrintOut A, A
       Next A
       Tabelle1.Cells.EntireRow.Hidden = False
    End Sub

    Dieser Code wird die Zeilen 12 bis 31 bei der zweiten Seite ausblenden.

  3. Führe das Makro aus, um das gewünschte Ergebnis zu erzielen.

  4. Überprüfe die Druckeinstellungen in Excel, um sicherzustellen, dass die korrekten Optionen aktiviert sind.


Häufige Fehler und Lösungen

  • Wiederholungszeile nicht auf letzter Seite: Wenn die Wiederholungszeile auf der letzten Seite nicht angezeigt wird, überprüfe, ob das Drucklayout korrekt eingestellt ist. Manchmal können die Drucktitel ausgegraut sein, was bedeutet, dass sie nicht angewendet werden.

  • Wiederholungszeile oben gesperrt: Stelle sicher, dass Du die entsprechenden Zeilen als Drucktitel festgelegt hast und dass diese nicht ausgegraut sind.

  • Makro funktioniert nicht: Wenn das Makro nicht funktioniert, könnte es daran liegen, dass Du die Zeilen nicht korrekt ausgewählt hast. Achte darauf, dass die Zeilen 12 bis 31 existieren und nicht ausgeblendet sind.


Alternative Methoden

Du kannst auch die folgenden Methoden nutzen, um Wiederholungszeilen zu steuern:

  • Drucktitel manuell anpassen: Gehe zu "Seitenlayout" > "Drucktitel". Hier kannst Du festlegen, welche Zeilen als Titel verwendet werden. Beachte, dass dies nur auf zusammenhängende Zeilen angewendet werden kann.

  • Drucken über das Menü: Statt das Makro zu verwenden, kannst Du einfach die Druckoptionen im Menü verwenden. Manchmal funktioniert das Drucken über das Menü besser, wenn Du spezielle Layouts benötigst.


Praktische Beispiele

Beispiel 1: Du hast eine Tabelle mit 32 Zeilen. Die Zeilen 1 bis 11 sollen immer oben angezeigt werden, während die Zeilen 12 bis 31 nur auf der ersten Seite sichtbar sein sollen. Verwende das oben angegebene Makro.

Beispiel 2: Wenn Du den Druckbereich variabel halten möchtest, kannst Du den Druckbereich dynamisch anpassen. Verwende den folgenden Code:

Sub DynamischerDruck()
    Dim letzteZeile As Long
    letzteZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
    Tabelle1.PrintOut 1, letzteZeile
End Sub

Dieses Skript druckt von der ersten bis zur letzten ausgefüllten Zeile.


Tipps für Profis

  • Drucktitel nur auf bestimmten Seiten: Wenn Du die Wiederholungszeilen nur auf bestimmten Seiten anzeigen möchtest, ist es wichtig, die Druckeinstellungen sorgfältig zu überprüfen.

  • Druckerabfrage im Makro: Um eine Druckerabfrage in Dein Makro einzubauen, kannst Du den Application.Dialogs(xlDialogPrint).Show Befehl verwenden. Dies öffnet das Druckdialogfeld.

  • Wiederholungszeichen in Excel: Achte darauf, dass Du keine wiederholten Zeilen verwendest, die die Funktionsweise des Drucktitels beeinflussen könnten.


FAQ: Häufige Fragen

1. Warum kann ich die Wiederholungszeile nicht auswählen?
Die Option könnte ausgegraut sein, wenn die Zeilen nicht zusammenhängend sind oder wenn Du nicht im Seitenlayout-Modus bist.

2. Wie kann ich Drucktitel entfernen?
Gehe zu "Seitenlayout" > "Drucktitel" und lösche die Auswahl in den entsprechenden Feldern.

3. Gibt es eine Möglichkeit, nur ausgewählte Zeilen zu drucken?
Ja, Du kannst den Druckbereich manuell anpassen oder ein Makro verwenden, um nur die gewünschten Zeilen zu drucken.

4. Was mache ich, wenn mein Drucker nicht richtig funktioniert?
Überprüfe die Druckeinstellungen und stelle sicher, dass der richtige Drucker ausgewählt ist. Es kann auch hilfreich sein, den Drucker neu zu starten.

Beliebteste Forumthreads (12 Monate)

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