Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druck bis zur letzten Zeile

Druck bis zur letzten Zeile
04.09.2003 18:57:15
Erich M.
Hallo zusammen,

ich habe mit dem Recorder nachstehenden Code aufgezeichnet.
Wie kann ich bewerkstelligen, dass der ausgewählte Bereich
in der Zeilenlänge immer bis zur letzten gefüllten Zelle
in Spalte B ausgewählt wird.
Die Breite bis Spalte S bleibt immer gleich:


Sub Makro1()
Range("A1:S15").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("M5").Select
End Sub


Besten Dank für eine Hilfe!

mfg
Erich

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druck bis zur letzten Zeile
04.09.2003 20:05:00
chris-ka
Hallo

Statt Range("A1:S15") nimm

Application.Goto Reference:="R65536C2"
Selection.End(xlUp).Select
Range(Cells(1, 1), Cells(ActiveCell.Row, 19)).Select

gruß
Christian
DANKE -Christian !! o.T.
04.09.2003 20:14:51
Erich M.
.
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige