Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druckbereich per VBA

Druckbereich per VBA
06.06.2006 21:29:56
MathiasW
Hallo Excel Freunde,
habe ein kleine Sorge es um ein Tabellenblatt und den
Bereich A1:E3000.
Also es stehen Einträge jeweils in Spalte A bis E,
die Reihen sind nicht bis zur Zeile 3000 befüllt,
sondern ändern sich dynamisch.
Erreicht werden soll, dass der Berich gedruckt wird,
bis wohin die letzte Zeile Daten enthält. (per CMDBUTTON)
Zu beachten ist, dass einige Zeilen ausgeblendet sind,
diese sollen nicht mit ausgedruckt werden und alle
Zellen bis E3000 sind mit einem Rahmen vorformatiert.
vielen Dank für eure Hilfe
Mathias

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich per VBA
06.06.2006 22:07:46
Ramses
Hallo
Wenn einer Zeile von A-E alle Zellen gefüllt sind, dann kannst du mit
x = Cells(Rows.count,1).end(xlup).row
die letzte beschrieben Zeile finden, und den Druckbereich zuweisen
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & x
Gruss Rainer
AW: Druckbereich per VBA
06.06.2006 22:14:15
MathiasW
Hallo Rainer,
erstmal vielen Dank, habe das so getestet

Private Sub CommandButton3_Click()
x = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & x
End Sub

aber irgendwie druck das nicht, weisst du warum.
Gruss Mathias
AW: Druckbereich per VBA
06.06.2006 22:20:27
Ramses
Hallo
Löse doch den Druckbefehl aus :-)
Activesheet.printout
Gruss Rainer
Anzeige
AW: Druckbereich per VBA
06.06.2006 23:04:25
MathiasW
vielen Dank,
´tut super ich Trottel ;-)
Gruss Mathias

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige