Office: Zeilen ohne Text nicht mit drucken

Hallo,

ich habe immer eine unterschiedlich lange Tabelle zum drucken, da ich aber bis Zeile 100 Formeln in einigen Zellen habe will mir Excel immer 15 Blätter ausdrucken (bis zeile 100) obwohl nur bis z.B. Zeile 20 Text in den Zellen steht.
Die letzten Zeichen die ausgedruckt werden müssen stehen immer in der Spalte "C".
Wie kann ich Excel dazu bringen das er nur die Zeilen ausdruckt in denen Text steht, bzw. bis dahin ausdruckt wo eine Leerzeile kommt?

schonmal danke im Vorraus für eure Hilfe

lg Anne

:)

 

Hallo Annemarie,

wie wäre es denn, wenn Du den zu druckenden Bereich markierst und dann Auswahl oder Markierung drucken auswählst?

 

Hallo Backowe,

ja das gänge auch, aber genau das wollte ich mir ersparen das ich erst alles markieren muss um dann über ein Menü noch auswählen muss das er das drucken soll!
Ich habe in der Symbolleiste "Schnellzugriff" einen Button mit "Schnelldruck", wenn ich diesen drücke wird immer gleich das gedruckt was ich als Druckbereiech festgelegt habe.
Nur geht dies nicht wenn ich immer wieder eine unterschiedliche Anzahl an Zeilen habe*frown.gif*

lg Anne

 

Hi Annemarie,

dann einfach mit der groben Kelle. Füge einen Commandbutton auf dein zu druckendes Blatt und füge folgenden Code ein:

Code:

 

Hi Annemarie,

oder noch eine Möglichkeit über den Druckbereich.

Code:

 

ja danke erstmal...kann ich morgen erst ausprobieren ob ich das hinbekomme...hab hier zu Hause keinen Drucker :-(
lg und einen schönen Abend
Anne

 

Hi Annemarie,

bei Fragen fragen!

 

guten Morgen

mhh ich brings nicht *frown.gif*
ich wähle unter "Entwicklertools" --> "Einfügen" --> "Behelfsfläsche (Aktiv-X Steuerelement)" dann Füge ich den Code ein.
und nach anklicken des Buttons öffnet sich nur das 2. Tabellenblatt!?

bei Eingabe des zweiten Code kommt nach klkicken auf den Button eine Fehlermeldung und mir wird angezeigt das hier ein Fehler wäre:
PageSetup.PrintArea = "$A$1:$C$" & i - 1

lg Anne

 

Hi Annemarie,

ändere mal im zweiten Beispiel die Zeile If Application.Count(Range("A" & i & ":C" & i)) = 0 Then ab in If Application.CountBlank(Range("A" & i & ":C" & i)) = 3 Then und teste dann mal.

 

naja jetzt druck es ja schonmal was: beim ersten Code 2 Blätter mit 9 leeren Zeilen und beim zweiten Code nur die linke obere Zelle :-)
ich sollte vielleicht auch dazu schreiben das dies mit Spalte "C" nur ein Beispiel war, meine Tabelle geht in der Breite bis Spalte "AD", nach unten aber immer unterschiedlich wobei die letzte Zelle mit Text immer in Spalte "N" ist.

 

zur Veranschaulichung mal ein Bild!

 

Hi Annemarie,

ich habe ist heute keinen Bock auf irgendwelche Spielchen! Warum kann man sowas nicht ins Erstposting hineinschreiben, daß die Helfer den Arbeitsaufwand abschätzen können? Passe das "Beispiel" auf Deine Bedürfnisse an, wenn Du das nicht kannst, darfst Du weiter jede Menge Papier verschwenden! Ich baue Dein Bild nicht nach, ich habe auch sonst nichts zu tun! *kopfschüttel*

Thread closed!

 

das habe ich alles schon versucht "C" mit "AD" oder "N" ersetzt und mit Zahlen im Code experiementiert, aber es werden immer 5 Seiten gedruckt...bis Zeile 100!
...wenn ich wüste wie es geht dann würde ich doch hier nicht nach Hilfe fragen!!!! ...ich als Laie kann auch nicht wissen welche Informationen genau gebraucht werden!

DANKE *frown.gif*