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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereich automatisch festlegen und drucken

Forumthread: Druckbereich automatisch festlegen und drucken

Druckbereich automatisch festlegen und drucken
03.01.2006 13:41:15
Konni
Hallo Freaks,
eine neue leichte Aufgabe:
Wie kann ich per Schaltfläche einen Druckvorgang auslösen, bei dem der Druckbereich vorher automatisch von A1 bis Kx (x=variabel, unterschiedliche Zeilenanzahl je nach Tabelle) festgelegt wird? Ich kriege es einfach nicht hin!
Vielen Dank, wie schon so oft
Konni :-)
Anzeige

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich automatisch festlegen und drucken
03.01.2006 13:54:46
volker
Hallo Konni.
probiers mal so , geht bestimmt auch anders:
xxx = 30
Range("A1:K" & xxx).Select
Selection.PrintOut Copies:=1
gruß volker
AW: Druckbereich automatisch festlegen und drucken
03.01.2006 14:08:43
Konni
Hallo Volker,
ich kann Deine Lösung leider nicht umsetzen. Muss das Ganze nicht mit "Xy Sub" anfangen und mit "End Sub" enden. Was bedeutet xxx=30? Kommt das in ein Modul?
Gruß
Konni
Anzeige
AW: Druckbereich automatisch festlegen und drucken
03.01.2006 14:13:29
volker
hallo konni,

Sub drucken()
AnzSpalten = 30
Range("A1:K" & AnzSpalten).Select
Selection.PrintOut Copies:=1
End Sub

xxx ist eine variable die das ende des druckbereichs angibt und die du selbst füllen mußt könnte natürlikch auch anzSpalten heißen.
gruß volker.
Anzeige
AW: Druckbereich automatisch festlegen und drucken
03.01.2006 14:25:36
Harald
hi,
oder so

Sub drucken()
Dim Zeilen As String
On Error GoTo ende
Zeilen = Application.InputBox("Wieviele Zeilen Du wolle drucke ?")
'MsgBox Zeilen
Range("A1:K" & Zeilen).PrintOut Copies:=1
ende:
End Sub

Gruss Harald
AW: Druckbereich automatisch festlegen und drucken
03.01.2006 14:31:03
Konni
Hallo Harald,
danke für Dein Mitwirken. Aber siehe meine Nachricht an Volker
Gruß
Konni
Anzeige
AW: Druckbereich automatisch festlegen und drucken
03.01.2006 14:28:48
Konni
Hallo Volker,
die Anzahl der Spalten habe ich doch genannt, von A bis K!
Mir geht es darum, den Druckbereich automatisch ermitteln zulassen, und zwar von der 1. nicht leeren Zeile bis zur letzten nicht leeren Zeile. Mit der manuellen Zeilenvorgabe geht nicht, da ich die Tabelle für andere Nutzer ohne Spalten- und Zeilenüberschriften versehen werde (mit Passwortschutz) und somit das Ablesen der Zeilenanzahl nicht mehr möglich ist. - Kurzum, das Ganze soll idiotensicher sein!
Gruß
Konni
Anzeige
AW: Druckbereich automatisch festlegen und drucken
03.01.2006 14:45:17
volker
hallo konni,
von dem druck bis zur letzten zeile wußte ich nichts
mit dem variablen namen AnzSpalten hab ich mich vertan müßte Anz Zeilen heißen ist aber egal.
wenn du bis zur letzten zeile in Spalte A (weiß nicht ob bei dir alle spalten immer gefüllt sind) drucken willst dann geht das so:

Sub drucken()
Range("A1:K" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.PrintOut Copies:=1
End Sub

die 1 hinter Cells(Rows.Count, gibt die spalte an 1= a 2 = b usw.
gruß volker.
Range("A1:K" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.PrintOut Copies:=1
Anzeige
AW: Druckbereich automatisch festlegen und drucken
03.01.2006 14:54:42
Konni
Hallo Volker,
leider steht nur die 1. Zeile auf dem Papier. Vor den restlichen 42 Zeilen fehlt jede Spur. Info: keine leeren Spalten vorhanden
Gruß
Konni :-(
AW: Druckbereich automatisch festlegen und drucken
03.01.2006 15:23:36
volker
hallo konni
dann weiß ich auch nicht weiter , bei mir gehts :-)
wenn deine spalten immer gefüllt sind dann probiere es mal so

Sub drucken()
Range("A1:K" & Rows.Count).Select
Selection.PrintOut Copies:=1
End Sub

gruß volker.
Anzeige
AW: Druckbereich automatisch festlegen und drucken
03.01.2006 15:32:47
Harald
oder so

Sub drucken()
dim x as long
x = Cells(Rows.Count, 11).End(xlUp).Row
Range("A1:K" & x).PrintOut Copies:=1
End Sub

AW: Druckbereich - Harald und Volker
03.01.2006 15:58:46
Konni
Hallo Harald und Volker,
danke für Eure Hilfe. Ich befinde mich inzwischen zu Hause und kann das Drucken nicht nachvollziehen, da ein Druckkopf meines HP 2500C leider den Geist aufgegeben hat. Ich probiere es morgen im Büro und melde mich wieder.
Bei der Heimfahrt ist mir derGedanke gekommen, dass es vielleicht auch daran liegen kann, weil es in der Tabelle auch ein paar Leerzeilen gibt. Es müsste also der letzte Eintrag in einer Zeile am Tabellenende ermittelt werden.
Ich glaube, dass aus vorgenanntem Grund der Code nicht funzte.
Grüße und Dank, bis Morgen
Konni :-)
Anzeige
AW: Druckbereich - Harald und Volker
04.01.2006 09:49:34
Konni
Guten Morgen Harald und Volker,
gute Nachricht, beide Code funktionieren prima, aber beide verbunden mit dem Nachteil, dass nach dem korrekten Ausdruck noch mehrere weiße (leere) Blätter folgen. Läßt sich dies ändern?
Viele Grüße aus Karlsruhe und Danke
Konni
AW: Druckbereich - Harald und Volker
04.01.2006 11:03:56
Harald
Hi,
lass mal so laufen. Statt Druck, wird der Bereich selektiert.

Sub drucken()
dim x as long
x = Cells(Rows.Count, 11).End(xlUp).Row
Range("A1:K" & x).Select
End Sub

Dann siehst du den Bereich.
Der Code sucht nach der letzten gefüllten Zelle in Spalte 11 (also K).
Ggf. mal einen andere Spalte probieren.
Gruss Harald
Anzeige
AW: Alternative 2
04.01.2006 11:24:26
Harald 

Sub drucken1()
dim x as long
x = Cells(Rows.Count, 11).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "A1:K" & x
ActiveSheet.PrintOut Copies:=1
ActiveSheet.PageSetup.PrintArea = False
End Sub

Gruss Harald
AW: Druckbereich - Harald und Volker - ich glaube
04.01.2006 11:51:31
Konni
.... dass ich die Ursache gefunden habe, warum leere Blätter rauskommen:
In der Spalte K befinden sich Formeln bis ans Ende der Tabelle. Die sind zwar nicht direkt sichtbar, aber werden vielleicht vom Code als nicht leere Zeilen erkannt.
Eure beiden letzten Vorschläge brachten das gleiche Resultat. Beim Markieren wird die gesamte Tabelle bis Zeile K markiert.
Ich entschuldige mich jetzt schon mal vorab, falls ich Euch versehentlich durch die nicht leere Spalte K auf die falsche Fährte gelockt haben sollte.
Gruß
Konni
Anzeige
AW: Druckbereich - Harald und Volker - ich glaube
04.01.2006 13:04:21
volker
hallo konni,
dir fällt ja immer mehr dazu ein.
um das mit den formeln hinzukriegen fällt mir eigentlich nur diese nicht so schöne lösung ein.

Sub drucken()
For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If trim(Cells(x, 1)) <> "" Then anzzeilen = x
Next x
Range("A1:K" & anzzeilen).Select
Selection.PrintOut Copies:=1
End Sub

referenzspalte (die die den druckbereich bestimmt) ist a
hoffe es geht referenzspalte (die die den druckbereich bestimmt) ist a
gruß volker.
Anzeige
AW: Druckbereich - Harald und Volker - ich glaube
04.01.2006 13:44:57
Konni
..., dass Dein Code funktioniert. Der von Harald brachte leider keine Besserung.
Die Idee mit der Referenzspalte war ein genialer Einfall! Hut ab!
Zu Deiner Lösung: Man kann auch von Berlin über Hamburg nach München fahren. HAUPTSACHE IST DOCH, MAN KOMMT AN!!!
Ich habe mir gedacht, dass Ihre Beide verärgert seid, daher die Vorabentschuldigung!
Jetzt kommt: Die Nachherentschuldigung!! ;-)
Momentan bin ich wunschlos glücklich und bedanke mit sehr herzlich für Euren wirklich starken Einsatz. - Das Forum hier hat wirklich super Mitglieder.
Viele Grüße
Konni :-))))
Anzeige
AW: Druckbereich - Harald und Volker - ich glaube
04.01.2006 13:20:43
Harald
oder vielleicht so.

Sub test()
Dim i As Long, Lrow As Long
For i = Cells(Rows.Count, 11).End(xlUp).Row To 1 Step -1
If Cells(i, 11).Value >= 1 Then 'wenn Formelergebnis Spalte K größergleich 1
Lrow = Cells(i, 11).Row
Exit For
End If
Next i
'MsgBox Lrow
ActiveSheet.PageSetup.PrintArea = "A1:K" & Lrow
ActiveSheet.PrintOut Copies:=1
ActiveSheet.PageSetup.PrintArea = False
End Sub

Bin mal gespannt, was jetzt noch kommt ;-))))
Gruss Harald
Anzeige
AW: Druckbereich - Harald und Volker - ich glaube
04.01.2006 13:48:22
Konni
..., dass ich Dich an dieser Stelle auf meine Anwort an Volker verweisen muss.
Vielen Dank und Gruß
Konni :-)))
AW: Druckbereich automatisch festlegen und drucken
03.01.2006 14:46:08
volker
hallo konni,
den text hinter gruß volker kannst du vergessen.
gruß volker
;

Forumthreads zu verwandten Themen

Spalte nicht ausdrucken
Edwin

Hallo,
ich möchte in einem Sheet, dass eine bestimmte Spalte nicht ausgedruckt wird.
Ich weiß, dass ich Spalten ausblenden kann und dass diese dann nicht ausgedruckt werden.
Kann ich aber auch der Spalte die Eigenschaft zuweisen, dass sie nicht ausgedruckt wird?
Gruß
Edwin
05.11.2008 10:42:43
Thread-ID: 1021789
4 Beiträge
Anzeige
Spalte keine Ansicht und nicht drucken
Frederic

Hallo Zusammen
Hätte eine blöde Frage:
Wie kann ich mit VBA erreichen, dass die Spalte C1:C60 nicht in der Seitenansicht und auch nicht gedruckt wird. Grund: Habe dort Listenvermerke drin.
Für Eure generöse Hilfe danke ich schon im Voraus
Salvus
Frederic
20.12.2008 19:23:00
Thread-ID: 1034447
23 Beiträge
Druckbereich automatisch anpassen
Wolfango

Hallo zusammen,
in einer Tabelle soll immer nur bis zu einer bestimmten Zeile gedruckt werden (variabel!).
Mit Hilfe einer Formel kann ich ermitteln welche Zeile das ist (das Ergebnis der Formel steht in Zelle 'P5' und hier steht dann bspw. '25', wenn ich möchte dass bis einschl. Zeile...
17.01.2012 09:48:09
Thread-ID: 1246495
7 Beiträge
Orientierung Druckbereich automatisch anpassen
Gira

Liebes Forum,
dank euch konnte mein gestriges Problem perfekt gelöst werden - vielen Dank noch mal hierfür.
Nun habe ich noch eine weitere Frage:
Mein Tabellenblatt ist dank des gestrigen Makros so aufgebaut, dass abhängig von div. Parametern mal mehr, mal weniger Spalten eingeblend...
25.04.2014 09:39:54
Thread-ID: 1358529
4 Beiträge
2 print areas für ein sheet festlegen
Friederike

Hallo,ich habe ein großes Excel Sheet mit mehreren Tabellen.Ich möchte jedoch nur 2 davon ausdrucken. Diese befinden sich an unterschiedlichen Stellen im File. Ich möchte nicht jedes mal eine der beiden Tabellen markieren und dann den selektierten Bereich ausdrucken. Ich hab es schon mit der AN...
29.07.2002 12:41:06
Thread-ID: 141942
4 Beiträge
Druckbereich automatisch anpassen
matthias

Hallo,
gibt es eine Möglichkeit den Druckbereich automatisch immer erweitern zu lassen entsprechend der Anzahl der Zeilen die einen Wert aufweisen?
Wie kann man so etwas realisieren?
09.04.2015 12:40:10
Thread-ID: 1419887
9 Beiträge
Druckbereich nach Jahr automatisch anpassen
marcel

Hallo,
ich habe folgendes beispielhaftes Tabellenblatt.
Ich würde gerne einen Button haben, durch den nur ein bestimmter Bereich der Tabelle gedruckt wird.
Es soll die Spalte mit der Beschriftung, die Spalte mit den Werten für das aktuelle Jahr, die zwei vorherigen Jahre und die dre...
15.04.2015 12:21:29
Thread-ID: 1420906
3 Beiträge
Dynamischer Druckbereich mit VBA
Mats

Hi Leute,
nach langem suchen im Netz habe ich zwar viele Lösungsansätze für das oben beschriebene Problem gefunden aber keiner funktioniert für mich (bzw. schaffe ich es nicht ihn anzupassen).
Ich will einen dynamischen Druckbereich mit VBA. Als Formel hab ich den Druckbereich bereits i...
03.04.2016 00:09:37
Thread-ID: 1485600
4 Beiträge
Druckbereich dynamisch festlegen
Danny

Moin die Damen und Herren,
Ich habe in einer Tabelle einige Bereiche die immer mitgedruckt werden sollen und einige die nur mitgedruckt werden sollen, wenn sich in der Spalte A ein X davor befindet.
Mein Problem ist, dass die besagten Bereiche mal eine Zeile, mal 2 oder auch mal 4 habe...
13.10.2016 08:52:55
Thread-ID: 1519407
2 Beiträge
Druckbereich dynamisch festlegen
Werner

Hallo,
ich habe ein kleines Problem und komme nicht weiter.
In einer 3 spaltigen Liste übernehme ich über eine Formel Daten, wenn vorhanden, von einem anderen Tabellenblatt. Dadurch ist die Liste zwar bis zum Ende mit Formeln und Formaten gefüllt aber nicht mit Daten.
Ich möchte nun...
17.04.2019 09:43:26
Thread-ID: 1687648
5 Beiträge
pagesetup.Printarea über 2 Tabellen festlegen
Alex
Hallo Excelkenner..
Das Problem:
Ich muß ein PDF-File erstellen, das eine Grafik aus Tabelle 2 ganzseitig (Zellen A1:I62) auf Seite 1 und die Zellbereiche der Tabelle 1 $A$1:$I$69,$J$70:$S$328$ auf den nachfolgenden Seiten enthält. Kann ich den Druckbereich über VBA auf Bereiche aus 2 Tabellen...
19.09.2003 23:14:25
Thread-ID: 312595
5 Beiträge
Tabellenende festlegen
Michael
Hallo allerseits,
ich habe folgendes Problem.
Ich erzeuge per VBA aus einer Tabelle einen extrakt in eine andere Tabelle, die
dann in eine Datenbank (FileMaker) eingelesen wird. Doch leider werden in der Datenbank zu viele Zeile importiert (99 Zeilen) obwohl in der Tabelle nur je nach Mo...
04.11.2003 10:40:28
Thread-ID: 332684
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Druckbereich automatisiert festlegen und drucken in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke Alt + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsm)".
    • Wähle Einfügen > Modul.

  3. Kopiere und füge den folgenden VBA-Code ein:

    Sub drucken()
   Dim letzteZeile As Long
   letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
   Range("A1:K" & letzteZeile).Select
   Selection.PrintOut Copies:=1
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Füge eine Schaltfläche hinzu:

    • Gehe zu Entwicklertools > Einfügen > Schaltfläche (Formularsteuerelement).
    • Ziehe eine Schaltfläche auf das Arbeitsblatt.

  6. Verknüpfe die Schaltfläche mit dem Makro:

    • Wähle das erstellte Makro drucken aus.

  7. Klicke auf die Schaltfläche, um den Druckbereich automatisch festzulegen und zu drucken.

Häufige Fehler und Lösungen

  • Problem: Nur die erste Zeile wird gedruckt.

    • Lösung: Stelle sicher, dass die Zellen in Spalte A keine leeren Zellen haben. Der Code sucht nach der letzten gefüllten Zeile in Spalte A.

  • Problem: Leere Seiten werden gedruckt.

    • Lösung: Überprüfe, ob in den referenzierten Spalten Formeln vorhanden sind, die leere Zellen erzeugen. Dies kann den Druckbereich beeinflussen.

Alternative Methoden

  • Dynamischer Druckbereich ohne VBA: Du kannst auch den Druckbereich manuell anpassen, indem du zum Tab Seitenlayout gehst und im Bereich Seite einrichten auf Druckbereich festlegen klickst.
  • Excel druckbereich automatisch anpassen: Wähle den gewünschten Bereich aus und gehe zu Seitenlayout > Druckbereich > Druckbereich festlegen.

Praktische Beispiele

  • Beispiel 1: Wenn du den Druckbereich für eine Tabelle mit variierenden Zeilen festlegen möchtest, verwende den zuvor genannten VBA-Code.

  • Beispiel 2: Um mehrere Druckbereiche festzulegen, kannst du Folgendes tun:

    ActiveSheet.PageSetup.PrintArea = "A1:K10,A20:K30"

  • Beispiel 3: Um den Druckbereich zu ändern, nutze:

    ActiveSheet.PageSetup.PrintArea = "A1:K" & Cells(Rows.Count, 1).End(xlUp).Row

Tipps für Profis

  • Tastenkombination für Druckbereich festlegen: Du kannst auch die Strg + P-Tastenkombination verwenden, um direkt zum Druckdialog zu gelangen.
  • Drucklinien entfernen: Gehe zu Seitenlayout > Drucklinien und deaktiviere die Option, um die Linien im Druck auszublenden.
  • Verwende Kommentare, um deinen Code zu dokumentieren, was besonders hilfreich ist, wenn du mit mehreren Druckbereichen arbeitest.

FAQ: Häufige Fragen

1. Wie kann ich den Druckbereich für mehrere Blätter festlegen?
Du kannst den gleichen VBA-Code in jedem Blatt verwenden oder eine Schleife erstellen, die durch alle Blätter iteriert.

2. Was tun, wenn der Druckbereich nicht korrekt festgelegt wird?
Überprüfe die Daten in den referenzierten Spalten auf leere Zellen oder Formeln, die den Druckbereich beeinflussen könnten.

3. Wie kann ich den Druckbereich bei Excel festlegen, ohne VBA zu verwenden?
Du kannst den gewünschten Bereich manuell auswählen und dann Seitenlayout > Druckbereich > Druckbereich festlegen wählen.

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