Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen Zählen und Bereich drucken

Zeilen Zählen und Bereich drucken
15.10.2004 09:39:22
Dirk
Hallo zusammen,
da sich meine Kentnisse bezüglich VBA in Grenzen halten habe ich eine kurze Frage. Ich möchte mit einem Makro die Anzahl der Zeilen in Spalte B zählen (Anzahl) und anschließend den Bereich A1:XAnzahl drucken. Wäre nett wenn mir jemand einen Ansatz geben könnte.
Danke und Gruß
Dirk S.

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen Zählen und Bereich drucken
RALF
Moin,
Variante 1 (alle benutzten Zellen drucken):
ActiveSheet.UsedRange.PrintOut Copies:=1, Collate:=True
Variante 2 (Bereich SpalteA Zeile 1 bis Spalte X letzte beschriebene zeile)
Range([a1],cells(activesheet.usedrange.row,24)).PrintOut Copies:=1, Collate:=True
Gruß RALF
Danke Dir!!!
Dirk
AW: Zeilen Zählen und Bereich drucken
15.10.2004 10:07:16
ANdreas
Hallo Dirk,
Du meinst suchst wahrscheinlich die unterste belegte Zelle in Spalte B und willst dementsprechend den Druckbereich anpassen.
Das sollte Dir weiterhelfen:

ActiveSheet.PageSetup.PrintArea = _
"A1:X" & Cells(Rows.Count, 2).End(xlUp).Row

Gruß
Andreas
Anzeige
ebenfalls Danke!!!
Dirk

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige