Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1048to1052
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
Inhaltsverzeichnis

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

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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige