Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
760to764
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druckbereich...

Druckbereich...
03.05.2006 14:05:40
Walter
Hallo Zusammen,
ich habe für das ausdrucken der 2. Seite folgendes Makro:
Dim rngFind As Range
Dim z As Long
Set rngFind = Sheets("Matrix-DCVD").Columns(2).Find(What:="E 220 CDI T")
z = Range("B2").End(xlDown).Row
Sheets("Matrix-DCVD").PageSetup.PrintArea = Range(rngFind, Cells(z, 22)).Address
es wird also ab !!! Fahrzeug E 220 CDI T, wenn dies erscheint (SpalteB) ausgedruckt.
Habe natürlich über EUCH erhalten.
Nun brauch ich das BIS das Fahrzeug E 220 CDI T kommt also Fahrzeug steht in Zeile 65, soll 2-64 ausgedruckt werden, ich krieg das nicht hin.
gruß Walter

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

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich...
03.05.2006 14:24:06
u_
Hallo,
Sheets("Matrix-DCVD").PageSetup.PrintArea = Range(cells(2,2),cells(rngFind.row,22)).Address
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Danke funktioniert o.t....
03.05.2006 16:10:06
walter
Hallo U,
Danke, funktioniert.
mfg Walter
AW: Druckbereich...
03.05.2006 14:26:57
IngGi
Hallo Walter,
so müsste es gehen:
Dim rngFind As Range
Set rngFind = Sheets("Matrix-DCVD").Columns(2).Find(What:="E 220 CDI T")
Sheets("Matrix-DCVD").PageSetup.PrintArea = Range(Cells(2, 2), rngFind.Offset(-1, 20)).Address
Gruß Ingolf
Danke o.t.
03.05.2006 16:23:19
walter
Hallo Ingolf,
Danke funktioniert ebenfalls.
mfg Walter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige