Office: Drucken bis Zelle mit Inhalt, Spalte festlegen?

Hallo zusammen

Ich benötige ein Makro in welchem ich den Druckbereich festlegen kann. Bis Spalte ist fix "AE", bis Zelle kann Varieren also bis Inhalt.

Muchas Gracias für Eure Hilfe.

Gruss

Jensus

:)

 

Hallo jensus.

Die Tabelle hat den Namen Test und anhand von Splate C wird der Druckbereich festgelegt. Der Code gehört in VBA unter DieseArbeitsmappe.

Code:

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

 

Hallo Hajo

Erstmals danke. Aber leider funktioniert es nicht ganz wie ich, bzw. mein Chef sich das vorstellt...

Ich muss das Makro einem Formular-Button zuweisen. Was muss dann am Makro geändert werden?

Danke.

Gruss

jens

 

Hallo jens,

was Bitte, Ich war nicht dabei als Du das Deinem Chef vorgestellt hast.

Nur die erste Zeile. Vermute ich mal. Ich verwende diese Steuerelemente nicht.


Gruß Hajo

 

Sorry bin nicht weiter gekommen. Ich versuche meine Fragestellung zu präzisieren:

Ich möchte eine Button programmieren der folgenden Druckbefehl auslösen soll:

Druckbereich markieren: Spalte "A" bis "AE"
Zelle 1 bis Zelle mit Inhalt nach Spalte B

Nun sollte bei Klick auf den erstellten Butten dieser markierte Bereich gedruckt werden.

 

Hallo Jens,

Code:

Gruß Hajo

 

Die Spalten nach Spalt "Y" werden mir aber trotzdem ausgedruckt!

 

Hallo Jens,

Du hast geschrieben A bis AE ich hatte bis AI geschrieben aber in beiden Bereichen ist die Spalte Y enthalten. Warum sollte Sie nicht gedruckt werden?

Gruß Hajo

 

Hallo Hajo, sorry mein Fehler, habe dir ein Falschangabe gemacht. habs raus bekommen. Danke.

 

Hallo Hajo,

ich habe diesen Beitrag gelesen und er hat mich interessiert.

Ich hätte dazu zwei Fragen.
Ich würde sie gerne bei meiner Tabelle einfügen, aber bei läuft es nicht richtig.
Habe zwar das Problem lokalisiert aber habe dazu keine Lösung.

Manche Zellen sind Verknüpft aber beinhalten keinen Inhalt außer den Wert
"0" (Null), dich ich aber ausblende durch die Formatierung (Standard;*wink.gif*

Die Prüfung wird in der Spalte A durchgeführt, im dem ich den unteren Code
geändert habe.


Code:

Die zweite Frage.
Wenn in der Spalte A keine Inhalte sich befinden. bekomme ich eine
Fehlermeldung "400".
Kann man diese unterdrücken und dabei eine Meldung geben,
wie "Sie haben einträge um sie zu drucken!" oder so.


Ist so was möglich?

Grüße und Danke.
:Sun:
Simela

 

Hallo, Simela,

wenn Du als Wert eine Null dort steht, entspricht meinem Kenntnisstand die letzte von unten ermittelten Zeile der tatsächlich letzten Zeile - logisch gesehen.

Mein Vorschlag: eine Änderung vornehmen, die prüft, ob die Zelle A1 einen Inhalt hat:

Code:

Gruß
LS

 

Hallo LS,

Danke erstmal für deine Hilfe.

Wegen der zweiten Frage, ist es damit getan, das keine Fehlermeldung kommt
und dabei nicht druckt. Das ist O.k.

Aber wegen meiner ersten Frage, ist es nicht so wie ich es mir gedacht hatte.

Denn er druckt mir auch meine verknüpfte Zellen mit und Formatierungen.
Und das will ich nicht. Er sollte die Spalte A Prüfen und dann nur bis zur letzte
Eingetragene Zelle drucken.
Denn es werden weitere Blätter mit gedruckt.

Siehe die Beispiel Tabelle mal an.

Grüße und Danke
:Sun:
Simela

 

Hallo, Simela,

statt direkt auf die Tabelle zu verweisen, solltest Du vielleicht eine Wenn-ABfrage nutzen:

Code:

Der veränderte Code für den Ausdruck:

Code:

Bei meinem Drucker passt der Bereich nicht auf eine Druckseite ohne weitere Anpassung.

Gruß
LS

 

Hallo LS,

danke für den Code und wegen der Formel.

Es klappt wunderbar.

Vielen Dank.

Grüße
*Sun
Simela

 

Hallo,
ich habe soeben eure beiträge durchgelesen und habe dabei beinahe genau das gefunden was ich suche, endlich!!! Ich bin noch VBA_Anfänger und seit heute morgen um 9 Uhr mehr oder weniger dabei wild herumzuprobieren.

Weiss jemand was ich an dem Code noch verändern muss so dass die letzte Zeile des Dokuments mit ausgedruckt wird? Diese wird mit diesem Makro logischerweise nicht mit ausgedruckt, aber Sie ist wichtig, da Sie die Summer meiner Spalten enthält. Schaut doch einfach mal in den Anhang, dann wird das deutlicher.

Ich dachte an einen Zusatz von wegen "suche in Spalte D nach "totaux" und hänge die Linie in der "totaux" gefunden wurde an den Druckbereich mit dran. Mit meinen selbstbeigebrachten VBA-Basics bekomme ich das leider nicht gezaubert.

Vielen Dank für eure Anregungen, *rolleyes.gif*

Rob