Tabellenausschnitt mit VBA ausdrucken

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Fritz() Dim letzteZeile As String letzteZeile = Range("B2000").End(xlUp).Row ' Bereich suche Range("A1:H" & letzteZeile).Select 'Abgrenzung benutzte Zellen Selection.PrintOut Copies:=1, Collate:=True End Sub

Hallo Geri,

zunächst vielen Dank für Deine Hilfe.

Du hast recht vermutet, ich habe mich bei der Beschreibung der Anforderungen an die Prozedur zu umständlich ausgedrückt. Ich habe die Prozedur getestet, das ganze funktioniert wie gewollt bezüglich der Markierung leider nur zeilenweise.
Spaltenweise wird nur bis einschließlich Spalte H markiert und dann auch gedruckt. Der zu druckende Tabellenausschnitt soll aber (einschließlich) die Spalte noch beeinhalten, bei der ab Spalte H in der Zeile 3 letztmalig noch eine Zahl enthalten ist.
Im Klartext: Da in der Zeile 3 erst ab Spalte H Zahlen stehen, soll der zu druckende Tabellenausschnitt zwar alle Spalten ab A umfassen, jedoch nur bis zu der Spalte in der in Zeile 3 letztmals(!) eine Zahl erscheint.
Ich hoffe, dass diese nachträgliche Erklärung Dir weiterhilft und Du den Code für mich entsprechend anpassen kannst.
Viele Grüße
Fritz

Sub Fritz() Dim lgletzteZeile As Long Dim intLetzteSpalte As Integer lgletzteZeile = Range("B65536").End(xlUp).Row intLetzteSpalte = Range("IV3").End(xlToLeft).Column Range(Cells(1, 1), Cells(lgletzteZeile, intLetzteSpalte)).PrintOut Copies:=1, Collate:=True End Sub

Hallo Peter,
danke für Deine Hilfe. Mit meinen bescheidenen Kenntnissen in Sachen VBA wäre ich ohne die Unterstützung hilfsbereiter Forumsbesucher aufgeschmissen.
Ich habe die Prozedur eben laufen lassen, auch hier funktioniert die Begrenzung leider nur zeilenbezogen.
Ich vermute den Grund zu kennen, warum es nicht so hinhaut, wie ich es wollte. Ich habe die Tabelle, die maximal (spaltenweise) ausgefüllt werden kann, bedingt formatiert (in der Weise, dass in diesem Bereich die ungeraden Zeilen farbig unterlegt sind. Werden vielleicht deshalb auch eigentlich "leere" Spalten mit ausgedruckt? Wenn ja, wie könnte man das ändern. Würde mich freuen, wenn Du mir weiterhelfen kannst?

Gruß Fritz

Sub Fritz() Dim lgletzteZeile As Long Dim intLetzteSpalte As Integer lgletzteZeile = Range("B65536").End(xlUp).Row intLetzteSpalte = 8 Do Until Cells(3, intLetzteSpalte + 1).Value = "" intLetzteSpalte = intLetzteSpalte + 1 Loop Range(Cells(1, 1), Cells(lgletzteZeile, intLetzteSpalte)).PrintOut Copies:=1, Collate:=True End Sub

Beliebteste Forumthreads (12 Monate)

Tabellenausschnitt mit VBA ausdrucken

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread