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

Druckbereich automatisch anpassen

Druckbereich automatisch anpassen
05.07.2004 08:23:24
Martin
Guten Morgen und Helaaaas,
ich lasse mir per Makro eine Datei mit Daten aus einer anderen erstellen und möchte nun gleichzeitig die neu erstellte Datei in das richtige Format bringen. Seitenränder einstellen usw. funktinioniert auch ohne Probleme. Da ich aber je nach Urpsrungsdatei eine unterschiedliche Anzahl von Daten in die neue transportiere, ergibt sich jedesmal das Problem, dass der Druckbereich unterschiedlich ausfällt.
Kann man per VBA realisieren, dass Excel automatisch bis zum letzten Rahmen bzw. letzten Wert den Druckbereich anpaßt? Dabei bitte beachten, dass nicht immer alle Zeilen und Spalten mit Inhalt befüllt sein müssen, d.h. Excel muss suchen, in welcher max Spalte bzw. Zeile IRGENDWANN ein Wert vorkommt.
Danke und Gruß
Martin

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

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich automatisch anpassen
P@ulchen
Hi Martin,
probier folgendes:


Sub Letzte()
Dim LZeile%, LSpalte%
LZeile = RealLastCell(ActiveSheet).Row
LSpalte = RealLastCell(ActiveSheet).Column
Set druckrange = Range(Cells(1, 1), Cells(LZeile, LSpalte))
ActiveSheet.PageSetup.PrintArea = druckrange.Address
End Sub
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
Danke an P@ulchen!!! oT
05.07.2004 11:07:42
Martin

86 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige