Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1304to1308
1304to1308
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereich auto bis zum letzten Datensatz!

Forumthread: Druckbereich auto bis zum letzten Datensatz!

Druckbereich auto bis zum letzten Datensatz!
21.03.2013 13:52:02
Snewi
Hallo,
wie kann ich es in Excel einstellen, dass der Druckbereich immer automatisch bis zum letzten Datensatz gesetzt wird oder auch nur der Bereich gedruckt wird der Daten enthällt?
Gruß

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich auto bis zum letzten Datensatz!
21.03.2013 13:57:49
Klaus
Hi Snewi,
oder auch nur der Bereich gedruckt wird der Daten enthällt?
Das ist eigentlich voreingestellt. Ginge der Druck immer bis zur letzten Zeile, kämen ja jedesmal um die 21000 Blatt aus dem Drucker.
Was ist denn der "Bereich, der Daten enthält"? Ich gehe jetzt mal davon aus, du willst immer Spalte A:F drucken, und zwar bis zur letzten gefüllten Zeile in Spalte F. Dann ginge es so: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim lRow As Long
With ActiveSheet
lRow = .Cells(.Rows.Count, 6).End(xlUp).Row 'die 6 steht für Spalte F
.PageSetup.PrintArea = "$A$1:$F$" & lRow
End With
End Sub

Must du dir halt an deinen gewünschten Bereich anpassen. Oder du fragst solange nach bis es funktioniert SCNR.
Grüße,
Klaus M.vdT.

Anzeige
AW: Druckbereich auto bis zum letzten Datensatz!
21.03.2013 14:19:05
Snewi
Mhh,
also ich hole mir ja jedesmal neue Daten! Die max Zeilenanzahl könnte 500 sein muss aber nicht! Danach hab ich alles ausgeblendet! Excel will mir jetzt bis 500 alles drucken obwohl keine Daten enthalten sind! Müsste ich deinen Code mit einem Button ausführen?
Gruß

AW: Druckbereich auto bis zum letzten Datensatz!
21.03.2013 14:43:47
Klaus 

Danach hab ich alles ausgeblendet! Excel will mir jetzt bis 500 alles drucken obwohl keine Daten enthalten sind!

Na und? Wenn die Zeilen eh ausgeblendet sind, kostet das ja kein Papier ...
Müsste ich deinen Code mit einem Button ausführen?
Nein, könntest du aber. Der Code (so wie er ist) kommt direkt in "THisWorkbook" und führt sich selbst aus, bevor du druckst.
Wenn du das lieber auf einem Button hast, dann kopiere in den Button nur die CodeZeilen, nicht die Private Sub Workbook_BeforePrint(Cancel As Boolean) Kopfzeile.
Grüße,
Klaus M.vdT.

Anzeige
AW: Druckbereich auto bis zum letzten Datensatz!
21.03.2013 14:57:05
Snewi
Super läuft wie alles von dir :-)
Gruß

Danke für die Rückmeldung! owT.
21.03.2013 15:03:59
Klaus
.

Forumthreads zu verwandten Themen

Spalte bis zur nächsten freien Zelle?
Tom

Hi,
großes Problem für mich kleines wahrscheinlich fr euch.
Hab eine Tabelle in der ich automatisch hinter den letzten Eintrag etwas einfügen möchte. Leider brauch ich unten eine Summen, also wäre das die letzte Zeile mit Füllung. ich will sozusagen die erste freie Zeile nach den befüll...
12.08.2008 15:12:47
Thread-ID: 1001232
3 Beiträge
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
aufrunden bis zu nächstem listeneintrag
lukas

moin moin die excelianer!
habe wiedermal ein kleines problem, bei welchem ihr mir behilflich sein könntet...
ich habe eine liste, die in etwa so aussieht: (die werte können variieren!)
45
100
300
500
...
jetzt habe ich noch eine zahl, die ich gerne jeweils zur nä...
08.09.2008 13:09:00
Thread-ID: 1008127
10 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Anzeige
Bereich markieren bis zur ersten Zahl
michael

Hallo zusammen,
ich möchte in einem bestimmten Bereich alle Leerzellen bis zum Ersten Eintrgag pro Zeile markieren.
Habe schon verschiedene probiert, z.B. gehe zu Leerzellen, da sich aber zwischen den Einträgen Zellen ohne Werte befinden und ich die Leerzellen nur die Leerzellen vor dem...
21.09.2008 12:38:00
Thread-ID: 1011285
5 Beiträge
Anzeige
Subtraktion bis Wert erreicht (Zirkelbezug)
Tom

Hallo,
ich probiere mich seit 2 Tagen mit der Problematik Zirkelbezug. Ich möchte diese Funktion benutzen, um so lange Werte aus einigen Zellen zu subtrahieren, bis der in einer anderen Zelle definierte maximale Wert erreicht ist.
Hintergrund:
Für eine gesonderte Auszahlung steht mi...
27.10.2008 11:54:40
Thread-ID: 1019597
4 Beiträge
Anzeige
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Alle Leerzeichen bis rechts von Ziffer löschen
Ziffer

Hallo Freaks,
ich habe in der Spalte B 1700 Zeilen, die mit Artikelbezeichnungen folgenden Musters befüllt sind:

Mein Ziel ist es, alle Leerzeichen bis auf zwei nach der letzten Ziffer und dem ersten Buchstaben zu löschen. Also ab der 11 Stelle bis zur 16 Stelle alle Leerzeichen bi...
13.12.2008 21:41:36
Thread-ID: 1032708
3 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Alee Zeilen bis auf bestimmte löschen
Silke

Hallo,
in meiner Liste muss ich Zählerstände den Kostenstellen zuordnen.
https://www.herber.de/bbs/user/59754.xls
Ich importiere eine TXT-Datei, die ich vom Drucker exportiere ins Excel. Leider sind viele Zeile dabei, die ich für die Auswertung nicht brauche.
In meiner Liste se...
25.02.2009 11:09:02
Thread-ID: 1053794
13 Beiträge
Anzeige
Bei wert in Spalte zeile A bis P in Neues Blatt
juergen

Hallo liebe Excel Freunde
Hab da ein kleines Problem.
Ich hab da 2 Tabellen eine mit Eingaben und eine zum Auswerten.
Nun soll das Makro:
Wenn in der Spalte (D) der Tabelle Eingaben eine Wert bzw.eine Zahl steht , dann soll die Zeile von A bis P in die Tabelle Rechentab fortlauf...
25.02.2009 18:12:34
Thread-ID: 1054119
2 Beiträge
Spalte bis zur letzten Zeile mit akt. Datum füllen
Stefan

Hallo,
ich habe eine Tabelle mit mehreren gefüllten Spalten (z.B. A, C, E, F) und leeren Spalten dazwischen.
Nun möchte ich Spalte I mit dem aktuellen Datum füllen, und zwar bis zur letzten gefüllten Zeile einer Spalte mit Inhalt.
Wie gehe ich da am besten vor?
Die gefüllten Spa...
03.03.2009 13:35:30
Thread-ID: 1055961
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige