Hallo Zusammen,
ich habe eine Excel-Liste welche immer unterschiedlich groß (Anzahl an zeilen) ist.
So ist es:
Die Tabelle hat insgesamt 100 Zeilen.
Ausgefüllt wurden aber nur die oberen 36 Zeilen.Dann sollen 5 Weitere Zeilen „leer“ mitgedruckt werden. Die untersten 10 Zeilen sind auch immer wichtig.
Wenn ich das Datenblatt ausdrucken möchte, muss ich immer die nicht benötigten Zeilen ausblenden, den Druckbereich festlegen (weil nur die ersten 10 Spalten gedruckt werden sollen) und dann drucken.
So möchte ich es hinkriegen:
Ich fülle die Tabelle ganz normal aus.
Wenn ich auf Drucken klicke, sollen die nicht benötigten Zeilen automatisch ausgeblendet werden und der Druckbereich entsprechend festgelegt werden. Danach soll erst die Druckausgabe erfolgen.
Ist das überhaupt möglich?
Ich habe bereits versucht über ein VBA-Makro das hinzukriegen, aber meine Kenntnisse reichen dafür leider nicht aus…
Vielen Dank schonmal im Voraus
LE
Hallo Zusammen,
also ich habe das Problem weitsgehendst gelöst.
Ich habe das Arbeitsblatt mit einem eigenen „Druck-Button“ versehen.
Nun müsste ich nur ein Makro hinkriegen, dass beim Druck auf den Button erst das Arbeitsblatt ab Zeile 10 abwärts in der Spalte C kontrolliert wo die erste freie Zeile ist.
Dann ab dieser Zeile bis zur Zeile 100 ausblendet und den Druck startet.
Vielleicht kann mir da ja jemand helfen…
Nun müsste ich nur ein Makro hinkriegen, dass beim Druck auf
den Button erst das Arbeitsblatt ab Zeile 10 abwärts in der
Spalte C kontrolliert wo die erste freie Zeile ist.
Dann ab dieser Zeile bis zur Zeile 100 ausblendet und den
Druck startet.
Hi lucifers erbe,
stehen in den Zeilen 101-110 deine 10 zeilen von denen du in dem ersten Beitrag sprichst?
Also soll der Druckbereich A10:C110 sein wobei leere Zeilen (also in C leere zelle) ausgeblendet sein sollen?
Machbar ist schon was du möchtest, aber deine beiden Beiträge zusammen ergebn keine klare Aussage was denn nun zu tun ist.
Formuliere es bitte mal neu.
Gruß
Reinhard
Hallo, Lucifers Erbe!
Nun müsste ich nur ein Makro hinkriegen, dass beim Druck auf
den Button erst das Arbeitsblatt ab Zeile 10 abwärts in der
Spalte C kontrolliert wo die erste freie Zeile ist.
Dann ab dieser Zeile bis zur Zeile 100 ausblendet und den
Druck startet.
Ungefähr so:
Sub Ausblenden()
Dim lngZeile As Long
Dim lngLeer As Long
Const PLUS\_X\_LEERZEILEN As Long = 5
' suche ab Zeile
lngZeile = 10
' bis zu einem Block von PLUS\_X\_LEERZEILEN leeren Zeilen
lngLeer = 0
Do While lngLeer
Wobei das dann auch, wie in Deinem ersten Posting, auch Deine 5 Leerzeilen am Ende belässt. Ggf. halt die Zeilenanzahl reduzieren...
Gruß, Manfred
Hi Reinhard!
Also ich habe eine Tabelle in der ich Daten eingebe.
In Spalte C werden Daten eingegeben, die relevant sind.
Ab der 10. Zeile bis zur 100. Zeile soll geprüft werden, ob in Feld C etwas tshet. Wenn Nein, dann ausblenden und drucken (Druckbereich bis einschl. Zeile 110 - also Zeilen 100-110 sollen wieder gedruckt werden)
Bsp:
A B C
1
2
3
4
5
6
7
8
9
10 100
11 110
12
.
.
.
98
99
100
101
102
.
.
.
In diesem Fall sollen die Zeilen bis einschl 11 (+ x Zeilen) und ab 100 nicht(!) ausgeblendet sein.
Hoffe habe mich jetzt gut verständlich ausgedrückt?
Lieben gruß
LE
Hi LE,
probiers mal so:
Sub Druck()
Dim Zei As Integer
With ActiveSheet
.PageSetup.PrintArea = "$A$1:blush:E$110"
.Range("$A$1:blush:A$110").EntireRow.Hidden = False
If .Range("C99") = "" Then
Zei = .Range("C99").End(xlUp).Row + 1
If Zei Gruß
Reinhard
> Also ich habe eine Tabelle in der ich Daten eingebe.
>
> In Spalte C werden Daten eingegeben, die relevant sind.
>
> Ab der 10. Zeile bis zur 100. Zeile soll geprüft werden, ob in
> Feld C etwas tshet. Wenn Nein, dann ausblenden und drucken
> (Druckbereich bis einschl. Zeile 110 - also Zeilen 100-110
> sollen wieder gedruckt werden)
>
> Bsp:
> A B C
> 1
> 2
> 3
> 4
> 5
> 6
> 7
> 8
> 9
> 10 100
> 11 110
> 12
> .
> .
> .
> 98
> 99
> 100
> 101
> 102
> .
> .
> .
> In diesem Fall sollen die Zeilen bis einschl 11 (+ x Zeilen)
> und ab 100 nicht(!) ausgeblendet sein.
>
>
> Hoffe habe mich jetzt gut verständlich ausgedrückt?
>
> Lieben gruß
>
> LE