dynamischen Druckbereich via VBA festlegen

[islamash]

Guten Tag zusammen,

ich hoffe, Ihr könnt mir weiterhelfen. Ich nutze Excel 2013 und möchte einen dynamischen Druckbereich festlegen d.h. der Druckbereich soll sich jedes mal verändern, wenn auf dem Tabellenblatt weitere Zeilen hinzukommen.

Beispiel (siehe Excel-Datei):
Was möchte ich?  Ich möchte gerne einen Button ( [img=52x63]
Dateiupload bitte im Forum! So geht es: Klick mich!
]) auf meiner Excel-Datei, auf dem ich draufklicke (der Button ist nicht zwingend notwenig, wenn ich ganz "normal" Drucken kann ist das auch in Orndung) und ich dann den davor eingestellten dynamischen Druckbereich ausgedruckt bekomme. Das Problem ist, dass sich der Druckbereich sich täglich verändern kann.

Siehe meine Excel-Datei: Der Druckbereich hier wäre A1:G12. Die in der Tabelle hinterlegten Zellen, besitzen eigentlich Zellenbezüge d.h. die Daten kommen aus einem anderen Tabellenblatt. Ich habe aber einfachshalber schnell die Daten eingetippt, damit ihr euch den Sachverhalt besser vorstellen könnt.
Die untenstehenden nuller (0) sind normalerweise mit Formeln hinterlegt d.h. die können nicht gelöscht werden. Ich möchte jetzt den Druckbereich so irgendwie "installieren", dass der Druckbereich nur die Daten erfasst und nicht die vielen 0. Also mein VBA soll erkenn, wenn eine Zeile nur 0 besitzt soll der Druckbereich diese Zeile nicht ausdrucken.  Wenn einmal eine Zeile nur 0 besitzt, sind die daunterliegenden Zeilen auch nur mit 0 ausgefüllt.

OMG, ich hoffe, ihr versteht mein Problem :D

 


Vielen Vielen Dank. Über Eure Antworten würde ich mich riesig freuen.

Mit freundlichen Grüßen
islamash

[WillWissen]

Hi,

mit dem Makro kann ich dir nicht helfen. Deinen Tabellenaufbau solltest du aber ändern, dann kannst du dir die Formeln "auf Vorrat" sparen und die Nullen erscheinen erst gar nicht. 

1. Schmeiße die Vorratsformel raus
2. Klicke in irgendeine der Überschriftenzellen und
3. Drücke STRG-T oder -L
4. XL erkennt den Bereich, den du einfach mit OK bestätigst

Nun hast du eine intelligente Tabelle, die sich automatisch erweitert. Entsprechend dürfte auch das Makro leichter zu programmieren sein.

[shift-del]

Hallo

Es ist schon lange nicht mehr nötig Formeln auf Vorrat anzulegen. Eine formatierte Tabelle ist immer nur so groß wie die Anzahl der Datensätze.

[islamash]

Hallo

Es ist schon lange nicht mehr nötig Formeln auf Vorrat anzulegen. Eine formatierte Tabelle ist immer nur so groß wie die Anzahl der Datensätze.

Hallo,

danke für die schnelle Antwort. Ich bin ein Excel-Anfänger. Wie kann ich es denn optimieren?

mfg

[WillWissen]

Indem du meinen vorigen Beitrag liest und umsetzt?

[islamash]

Indem du meinen vorigen Beitrag liest und umsetzt?

Danke... aber irgendwie funktioniert es nicht! Ich habe die Formeln unten, welche nur 0 besitzt haben gelöscht. Dann habe ich  eine Zelle, welche eine Überschrift ist, markiert und STRG+T.

[WillWissen]

Hi,

Ich habe die Formeln unten, welche nur 0 besitzt haben gelöscht. Dann habe ich  eine Zelle, welche eine Überschrift ist, markiert und STRG+T.

und nu?

Habe gerade sämtliche Brillen ausprobiert; aber irgendwie schaffe ich es nicht, auf deine jetzige Datei zu schauen.   :32:

[Rabe]

Hi,

Dann habe ich  eine Zelle, welche eine Überschrift ist, markiert und STRG+T.

dann noch OK drücken und fertig.

Dann kannst Du in eine beliebige Zelle unterhalb der letzten gefärbten Zeile (hier dann in Zeile 13) einen Eintrag machen und Dich über die automatische Erweiterung der Liste und Fortführung der Formeln freuen.

[WillWissen]

Hi Ralf,

dann noch OK drücken und fertig.

so einfach? Das hätte ich jetzt nicht gedacht, aber ich glaube, das hatte ich bereits in #2 geschrieben:

4. XL erkennt den Bereich, den du einfach mit OK bestätigst

[Rabe]

Hi,

so einfach? Das hätte ich jetzt nicht gedacht,

was kann man sonst bei so einer einfachen Funktion falsch machen?

Und die Meldung: "es funktioniert nicht" ist halt nicht sehr aussagekräftig.