Zeilen-+Spalten-Header nicht drucken automatisiert

Forumthread: Zeilen-+Spalten-Header nicht drucken automatisiert

11.07.2018 16:42:41

Lisa

Hallo liebe Forums-Experten,
mein Chef (ein älterer Herr von über 70) hat - wie auch immer er das geschafft hat - bei über 200 Excel-Dokumenten die Seiteneinrichtung so gespeichert, dass immer die Zeilenheader A B C ... und die Spaltenheader 1 2 3 ...
mit ausgedruckt werden, wodurch sich auch die Umbrüche beim Ausdrucken total verschieben.
Es müssen also ca. 200 Excel-Dokumentee die Info bekommen:
.PrintHeadings = False
Denn er arbeitet immer wieder an diesen Dokumenten und erstellt daraus neue Versionen mit etwas veränderten Berechnungen.
Es ist mir als ziemliche Excel-Anfängerin (Excel 2016) nach einigen Stunden Recherche und _ Probieren zwar gelungen, eine PERSONAL.XLSB mit folgendem Makro zu erstellen:


Sub AusdruckohneZeilenundSpaltenueberschriften()
' AusdruckohneZeilenundSpaltenueberschriften Makro
' Ausdruck ohne Zeilen- und Spaltenueberschriften (A, B, C ..., 1, 2, 3 ...)
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintHeadings = False
End With
Application.PrintCommunication = True
End Sub

Weil ich nicht sicher bin, ob es zuverlässig funktioniert und weil es auch stört, dass dann immer zwei Dokumente geschlossen werden müssen (das eigentliche Dokument und die PERSONAL.XLBS), habe ich die PERSONAL.XLSB im Excel-Addin-Format "Drucke ohne Header.xlam" gespeichert, die PERSONAL.XLSB gelöscht. Die Add.In-Datei ist auch im richtigen Pfad abgelegt, auch in Excel eingebunden/aktiviert, aber das darin enthaltene Makro wirkt nicht, weil es vermutlich nicht automatisiert gestartet wird.
Das Häkchen bei
Seite einrichten > Blatt > Zeilen- und Spaltenüberschriften (drucken) bleibt gesetzt, statt zu verschwinden.
Vermutlich fehlen noch Code-Zeilen oder etwas anderes. Am besten auch noch so, dass JEDES Excel-Dokument gleich nach dem Öffnen das Häkchen entfernt bekommt und danach korrekt gespeichert wird. Aber ich habe so wenig Ahnung und keine Wochen Zeit, mich in VBA einzuarbeiten. Daher bitte ich um Ihre Hilfe.
Bitte wirklich für Anfänger Schritt für Schritt erklären.
Herzlichen Dank vorab
Lisa Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen-+Spalten-Header nicht drucken automatisiert

11.07.2018 16:45:47

Hajo_Zi

Seitenlayout, Seite einrichten, Wiederholungsspalten und Zeilen.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.

AW: alle Datein

11.07.2018 17:41:24

Fennek

Hallo Lisa,
mit VBA kann man alle Dokumente nach einander öffnen, die von Hajo vorgeschlagenen Änderungen vornehmen und die Datei wieder speichern.
Dazu ist es nötig die Ornder-Struktur einigermaßen zu kennen: alle xlsx im einem Ornder inkl. Unterordner?
Prüfe auch wie das passieren konnte: wird eine Vorlage immer wieder neu gespeichert?
mfg

AW: alle Datein

12.07.2018 10:43:29

Lisa

Unter Seitenlayout - Seite einrichten - sind unter Excel 2016 die Befehle
Seitenränder, Ausrichtung, Format, Druckbereich, Umbrüche, Hintergrund und Drucktitel
zu sehen. Wiederholungsspalten und Zeilen nicht.
Aber mit den Wiederholungsspalten und Zeilen hat das auch nichts zu tun, es geht um
Seitenlayout - Blattoptionen - Überschriften Drucken - Häkchen muss raus.
bzw.
Blattoptionen Zusatzfunktionen unten rechts - Seite einrichten - Registerkarte Blatt - Abschnitt Drucken - Zeilen- und Spaltenüberschriften - Häkchen muss raus.
Von Hand ist das ja keine Kunst. Es geht um eine automatisierte Änderung dieser Einstellung in über 200 Dokumenten, die in über 50 verschiedenen Ordnern liegen, die nach Kundennamen sortiert sind.
DASS man das mit VBA machen kann, ist auch schon klar. Die Frage ist ja WIE. JEDES Excel-Dokument soll beim Öffnen automatisiert diesen Haken entfernt bekommen.
Bitte genauer lesen.

AW: Zeilen-+Spalten-Header nicht drucken automatisiert

11.07.2018 17:43:07

Hajo_Zi

Seitenlayout, Seite einrichten, Wiederholungsspalten und Zeilen.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.

AW: alle Dateien ändern

12.07.2018 09:29:54

Fennek

Hallo Lisa,
es geht sicher auch mit der Personal.xlsb, aber wie wäre es einmalig alle Dateien zu ändern?
Der folgende Code öffnet alle xlsx eines wählbaren Ordners, ändert die Einstellung und speichert. Es wäre kein Problem (aber ineffizient), das MAkro 2x über die selbe Datei laufen zu lassen. Aber besser wäre es den Ablauf genau zu planen.
Falls es sehr viele Unter-Ordner geben sollte, könnte man den Code so anpassen, dass viele (alle?) Unterordner automatisch erfasst werden.


Sub F_en()
Dim WS As Worksheet: Set WS = ActiveSheet
Dim WB As Workbook
'Auswahl des Ordners:
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show Then Fd = .SelectedItems(1)
End With
f = dir(Fd & "*.xlsx)
do while len(f)
set wb = workbooks.open(Fd & f)
'Alle Blätter
for each ws in sheets
WS.PageSetup.PrintHeadings = False
'WS.PrintPreview
next ws
wb.close 1
f = dir
loop
End Sub

(ungeprüft, also an Kopien im Einzelschrittmodus F8 testen)
mfg

AW: alle Dateien ändern

12.07.2018 10:49:05

Lisa

Danke Fennek, das klingt doch schon mal nach einer echten Lösung! Werde ich sobald wie möglich erproben.

Infobox / Tutorial

Automatisiertes Drucken ohne Zeilen- und Spaltenüberschriften in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um die Zeilen- und Spaltenüberschriften (A, B, C ... und 1, 2, 3 ...) in mehreren Excel-Dokumenten automatisch nicht drucken zu lassen, kannst Du den folgenden VBA-Code verwenden. Dieser Code öffnet jedes Excel-Dokument in einem bestimmten Ordner, passt die Druckeinstellungen an und speichert die Änderungen.

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf "Einfügen" und wähle "Modul", um ein neues Modul zu erstellen.

Füge den folgenden Code ein:

Sub DruckeOhneHeader()
    Dim WS As Worksheet
    Dim WB As Workbook
    Dim Fd As String
    Dim f As String

    ' Auswahl des Ordners
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then Fd = .SelectedItems(1)
    End With

    f = Dir(Fd & "*.xlsx")
    Do While Len(f)
        Set WB = Workbooks.Open(Fd & f)
        For Each WS In WB.Sheets
            WS.PageSetup.PrintHeadings = False
        Next WS
        WB.Close SaveChanges:=True
        f = Dir
    Loop
End Sub

Schließe den VBA-Editor und führe das Makro aus. Du kannst das Makro unter Entwicklertools -> Makros auswählen und auf Ausführen klicken.

Häufige Fehler und Lösungen

Excel druckt nicht alles: Stelle sicher, dass alle Dokumente korrekt geöffnet werden und keine Fehlermeldungen angezeigt werden.
Das Häkchen bei "Zeilen- und Spaltenüberschriften (drucken)" bleibt gesetzt: Überprüfe, ob der Code in der richtigen Schleife für jedes Arbeitsblatt ausgeführt wird.
Die erste Zeile wird nicht gedruckt: Achte darauf, dass der Druckbereich korrekt eingestellt ist und dass die Zeilen nicht manuell ausgeblendet sind.

Alternative Methoden

Wenn Du keine Makros verwenden möchtest, kannst Du die Einstellung für jedes Dokument manuell ändern, indem Du folgendes tust:

Gehe zu Seitenlayout und klicke auf Seite einrichten.
Wähle die Registerkarte Blatt.
Entferne das Häkchen bei Zeilen- und Spaltenüberschriften drucken.

Diese Methode ist jedoch sehr zeitaufwändig und nicht für mehrere Dokumente geeignet.

Praktische Beispiele

Angenommen, Du hast einen Ordner mit 200 Excel-Dokumenten, in denen die Zeilen- und Spaltenüberschriften nicht drucken sollen. Mit dem oben genannten VBA-Code kannst Du in wenigen Minuten alle diese Dokumente anpassen.

Ein weiteres Beispiel wäre, wenn Du regelmäßig neue Dokumente aus Vorlagen, wie z.B. ABC-Karten zum Ausdrucken, erstellst. Stelle sicher, dass die Vorlage so konfiguriert ist, dass die Druckeinstellungen bereits richtig gesetzt sind.

Tipps für Profis

Automatisiere den Prozess: Du kannst das Makro so anpassen, dass es beim Öffnen von Excel automatisch ausgeführt wird, indem Du es in die ThisWorkbook-Klasse einfügst.
Verwende den Code zur Anpassung: Du kannst den VBA-Code erweitern, um auch andere Druckoptionen wie Drucken ohne Zeilennummer oder Excel Kommentare mitdrucken zu konfigurieren.
Speichere eine Vorlage: Wenn Du oft mit ähnlichen Dokumenten arbeitest, erstelle eine Vorlage mit den korrekten Einstellungen, um Zeit zu sparen.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass das Makro funktioniert?
Teste das Makro zuerst an einer Kopie Deiner Dateien, um sicherzustellen, dass keine wichtigen Daten verloren gehen.

2. Kann ich das Makro auch für andere Excel-Versionen verwenden?
Ja, das Makro sollte auch in Excel 2013 und 2019 funktionieren. Achte jedoch darauf, dass die Menüführungen leicht variieren können.

3. Was mache ich, wenn ich nicht alle Dateien auf einmal ändern kann?
Du kannst das Makro anpassen, um eine bestimmte Anzahl von Dateien oder nur ausgewählte Dateien zu bearbeiten.

4. Wie kann ich die Seitenränder ausblenden?
Das kannst Du ebenfalls im VBA-Code anpassen, indem Du die entsprechenden Einstellungen in WS.PageSetup verwendest.

Beliebteste Forumthreads (12 Monate)

Zeilen-+Spalten-Header nicht drucken automatisiert

Forumthread: Zeilen-+Spalten-Header nicht drucken automatisiert

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Automatisiertes Drucken ohne Zeilen- und Spaltenüberschriften in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Zeilen-+Spalten-Header nicht drucken automatisiert

Forumthread: Zeilen-+Spalten-Header nicht drucken automatisiert

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Automatisiertes Drucken ohne Zeilen- und Spaltenüberschriften in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread