121129
26.03.2015, aktualisiert um 16:19:23 Uhr
1534
12
0
Automatisiertes Drucken in Excel
Hallo 
,
Ich hätte eine Frage an euch Zwecks dem Automatisierten Drucken in Excel. ICh hab ein Tabellenblatt dort müsste ich immer die erste Zeile (A1-H1) drucken inklusive den Bereich A-H von der Zeile ab wo in H die beliebige Rechnungsnummer ("112") steht bis zu der Zeile wo in B steht die Gleiche Rechnungsnummer und Ergebnis ("112 Ergebnis"). und das für alle Rechnungen also z.b. (113,500,690....). Ich hoffe ich konnte mein Problem einigermaßen verständlich formulieren. Vielen Dank im Vorraus!
Bsp.
Datum Rechnung Kontonummer Wert
1.2 112 5 2
6 5
Ergebnis 112 7
1.2 115 5 5
6 100
7 1
Ergebniss 115 106
Gedruckt soll automatisch werden
Datum Rechnung Kontonummer Wert
1.2 112 5 2
6 5
Ergebnis 112 7
auf einem neuen Blatt
Datum Rechnung Kontonummer Wert
1.2 115 5 5
6 100
7 1
Ergebniss 115 106
,Ich hätte eine Frage an euch Zwecks dem Automatisierten Drucken in Excel. ICh hab ein Tabellenblatt dort müsste ich immer die erste Zeile (A1-H1) drucken inklusive den Bereich A-H von der Zeile ab wo in H die beliebige Rechnungsnummer ("112") steht bis zu der Zeile wo in B steht die Gleiche Rechnungsnummer und Ergebnis ("112 Ergebnis"). und das für alle Rechnungen also z.b. (113,500,690....). Ich hoffe ich konnte mein Problem einigermaßen verständlich formulieren. Vielen Dank im Vorraus!
Bsp.
Datum Rechnung Kontonummer Wert
1.2 112 5 2
6 5
Ergebnis 112 7
1.2 115 5 5
6 100
7 1
Ergebniss 115 106
Gedruckt soll automatisch werden
Datum Rechnung Kontonummer Wert
1.2 112 5 2
6 5
Ergebnis 112 7
auf einem neuen Blatt
Datum Rechnung Kontonummer Wert
1.2 115 5 5
6 100
7 1
Ergebniss 115 106
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 267520
Url: https://administrator.de/forum/automatisiertes-drucken-in-excel-267520.html
Ausgedruckt am: 08.05.2025 um 23:05 Uhr
12 Kommentare
Neuester Kommentar
Moin,
du schreibst in Spalte H steht die Rechnungsnummer, aber in deinen Beispielen steht sie in Spalte B, na was denn jetzt ?
Am besten postest du mal einen Screenshot deiner Tabelle, damit hier jeder weiß was Sache ist.
p.s. Das Forum bietet hervorragende Formatierungsmöglichkeiten auch für Tabellen (Formatierungen in den Beiträgen). Bitte mach doch davon Gebrauch, Danke.
Gruß jodel32
du schreibst in Spalte H steht die Rechnungsnummer, aber in deinen Beispielen steht sie in Spalte B, na was denn jetzt ?
Am besten postest du mal einen Screenshot deiner Tabelle, damit hier jeder weiß was Sache ist.
p.s. Das Forum bietet hervorragende Formatierungsmöglichkeiten auch für Tabellen (Formatierungen in den Beiträgen). Bitte mach doch davon Gebrauch, Danke.
Gruß jodel32
Misst jetzt hab ich das auf gelöst gesetzt und wollte das gar nicht... In zeile 1 A-H ist die Kopfzeile
Die Rechnungsnummer ist in Spalte B
Die Rechnungsnummer ist in Spalte B
Hallo Gast2015,
hier ein Beispiel-Sheet für dein Vorhaben: auto_set_pagebreaks_267520.xlsm
Kommentare findest du im VBA-Code des Demo-Sheets.
Grüße Uwe
hier ein Beispiel-Sheet für dein Vorhaben: auto_set_pagebreaks_267520.xlsm
Kommentare findest du im VBA-Code des Demo-Sheets.
Grüße Uwe
sehr geil danke . Ist das auch möglich wenn bei einer Rechnung mal 3 4 oder 5 Kontonummern sind?
. Ist das auch möglich wenn bei einer Rechnung mal 3 4 oder 5 Kontonummern sind?
ja, das Script orientiert sich hier an den Ergebniszeilen als Trenn-Signal.
Grüße Uwe
Grüße Uwe
Vielen vielen Dank! Ich hab nur noch ein Problem mit dem finden des VBA-Codes
Zitat von @121129:
Vielen vielen Dank! Ich hab nur noch ein Problem mit dem finden des VBA-Codes
Der liegt unter DieseArbeitsmappe im VBA-Editor !Vielen vielen Dank! Ich hab nur noch ein Problem mit dem finden des VBA-Codes
Grüße Uwe
Hab doch alles gefunden! Mal schaun ob ich es schaffe :D
Also das wichtigeste Klappt erstmal super Dank . Bloß jetzt druckt er mir auch noch viele Leere Blätter nur mit der Kopfzeile versehen aus 
. Hättest du noch eine Lösung für dieses Problem?
1000 Dank!
. Bloß jetzt druckt er mir auch noch viele Leere Blätter nur mit der Kopfzeile versehen aus . Hättest du noch eine Lösung für dieses Problem?1000 Dank!
Zitat von @121129:
Also das wichtigeste Klappt erstmal super Dank. Bloß jetzt druckt er mir auch noch viele Leere Blätter nur mit der
Kopfzeile versehen aus. Hättest du noch eine Lösung für dieses Problem?
Das kommt drauf an wie dein Sheet aussieht, wenn z.B. in den Spalten rechts neben den Daten die Zeilen weiter runter gehen als die Daten in den Spalten A-G dann kommt es dazu, weil ich UsedRange als Referenz genommen habe.Also das wichtigeste Klappt erstmal super Dank
. Bloß jetzt druckt er mir auch noch viele Leere Blätter nur mit derKopfzeile versehen aus
. Hättest du noch eine Lösung für dieses Problem?das kannst du in dieser Zeile anpassen:
.PageSetup.PrintArea = "A1:H" & .Cells(Rows.Count,2).End(xlUp).Row
Danke! Ich habe es Probiert und es klappt leider nicht . Ich glaube das Problem liegt daran, dass in das Tabellenblatt Inhalte reinkopiert wurden, welche bis zeile 999 gehen. Ich hab es zwar mit kopieren werte einfügen gemmacht aber ich glaube Excel denkt noch das dort was steht obwohl da nichts steht und Druckt das mit aus.
. Ich glaube das Problem liegt daran, dass in das Tabellenblatt Inhalte reinkopiert wurden, welche bis zeile 999 gehen. Ich hab es zwar mit kopieren werte einfügen gemmacht aber ich glaube Excel denkt noch das dort was steht obwohl da nichts steht und Druckt das mit aus.
Meine Glaskugel sieht dein Sheet leider nicht 
hier gehts einwandfrei, also posten ....
hier gehts einwandfrei, also posten ....
