121129
Mar 26, 2015, updated at 15:19:23 (UTC)
1450
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 267520
Url: https://administrator.de/contentid/267520
Printed on: May 15, 2024 at 02:05 o'clock
12 Comments
Latest comment
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 (Formatting instructions in the posts). 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 (Formatting instructions in the posts). Bitte mach doch davon Gebrauch, Danke.
Gruß jodel32
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
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 der
Kopfzeile 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