Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Per Makro spezifische Spalten drucken

Per Makro spezifische Spalten drucken
17.02.2009 17:40:00
Claus
Hallo,
ich wollte gerne spezifische Spalten per Makro drucken.
Mein Druckbereich der in Seiten geteilt ist beträgt A1:BA46. Da aber nicht immer alle Spalten mit Daten ausgefüllt sind würde ich gerne dass per Makro die Anzahl der Seiten gedruckt wird in denen auch Daten stehen. Ich würde eine Formel in der Zeile 1 erstellen so dass bei der letzten ausgefüllten Spalte OK steht.
Beispiel:
die letzte ausgefüllte spalte ist "S" diese befindet sich in der 2. Seite. Also in S1 würde jetzt "ok" stehen. Das Makro müsste also das Wort "ok" suchen und bis dorthin drucken. Also den Bereich A1:S46 anstatt den ganzen Bereich A1:BA46.
Vielen DANK
Grüße
Claus
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Makro spezifische Spalten drucken
17.02.2009 17:48:00
Daniel
HI
dieses Makro in das Modul "DieseArbeitsmappe" kopieren.
wird gedruckt, so wird der Druckbereich automatisch angepasst.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Zelle As Range
Set Zelle = Range("A1:BA1").Find(what:="OK", lookat:=xlWhole, LookIn:=xlValues)
If Not Zelle Is Nothing Then
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(46, Zelle.Column)).Address
End If
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige