Office: Druckbereich per VBA festlegen

Hallo Spezialisten!

Hier habe ich bisher immer schnell die richtigen Ansätze gefunden...

Erneut habe ich ein Problem, wofür ich keine Lösung finde:
In einer Tabelle möchte ich den Druckbereich auf einen bestimmten (flexiblen) Bereich per VBA festlegen.
Grund:
Die zu druckenden Zeilen und Spalten ändern sich ständig.
Code:

bringt zwar in diesem Fall (angehängte Datei) die Lösung - aber was ist, wenn in Spalte "J" oder "K" etwas eingetragen ist?
Wie kann man das flexibel lösen?

Raudi

:)

 

Hi,

Code:

 

Hallo Karin,

das funktioniert leider nicht!
Zum Einen:
Code:

und: es werden ALLE Spalten ausgedruckt!
Das ist nicht erwünscht - nur die, in denen etwas eingetragen ist und maximal bis Spalte "K".
Hatte vergessen zu erwähnen, dass es daneben noch weitere (für den Druck unbedeutende) Spalten gibt - sorry!

Aber Danke für die Idee.

Raudi

 

Hi,

ist das so zu verstehen, dass I immer gefüllt ist? Dann ermittle die letzte belegte Zeile in Spalte I und setze den Druckbereich bis Spalte K, letzte belegte Zeile in I.

 

Nein - belegt sind immer die Spalten "A" bis "F".
In den Spalten "G" bis "K" muss nicht unbedingt etwas stehen.
Dein Vorschlag würde dann auch nichtausgefüllte Spalten mit ausdrucken.
Das ist aber genau das, was ich nicht möchte.
Ich möchte den Druckbereich von "A2" bis zu der Spalte, in der (außer der Überschrift) etwas eingetragen ist, festlegen.
Das mit der letzten Zeile ist bereits gelöst.

Raudi

 

Dann musst du in einer Schleife über die Spalten ab G bis zu deiner letzen laufen und prüfen, ob Application.CountA(Columns(Zaehler)) > 1

 

Herzlichen Dank - das funktioniert!
Wieder ein Problem gelöst...
(...aber das nächste kommt bestimmt.)

Raudi