Zell-Einfärbung mit BeforePrint aufheben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Workbook_BeforePrint(Cancel As Boolean) Const ExcludeRange = "B5:C5,F12,F14,F18,F20" Dim ws As Worksheet Dim lngActWs As Long lngActWs = ActiveSheet.Index Application.ScreenUpdating = False Application.EnableEvents = False For Each ws In ActiveWindow.SelectedSheets With ActiveWorkbook ws.Copy after:=.Worksheets(.Worksheets.Count) ActiveSheet.Range(ExcludeRange).Interior.ColorIndex = xlColorIndexNone Application.DisplayAlerts = False ActiveSheet.PrintOut ActiveSheet.Delete Application.DisplayAlerts = True End With Next ws Cancel = True Application.EnableEvents = True Application.ScreenUpdating = True ActiveWorkbook.Sheets(lngActWs).Select End Sub

Hallo Liutibus (fiese Eltern?),
bemühe doch mal den Makrorekorder und entferne die Einfärbungen per Hand. Kommt ungefähr das bei raus:

Sub Makro1()
Range("B5:C5,F12,F14,F18,F20").Select
Range("F20").Activate
Selection.Interior.ColorIndex = xlNone
Range("G6").Select
End Sub

Das ganze gehört aber nicht ins Modul, sondern unter "diese Arbeitsmappe - Workbook before print".
dann sieht es (bereits optimiert) warscheinlich so aus:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Range("B5:C5,F12,F14,F18,F20").Interior.ColorIndex = xlNone
End Sub

Färbe die Zellen nun wieder per Hand ein und lass auch dabei den Makrorekorder laufen, den "wieder einfärben Code" kannst du dann auf einen Button legen. Nicht vergessen die überflüssigen "select" und "activate" rauszuwerfen, im Zweifel helfen wir dabei gerne.
Grüße,
Klaus M.vdT.

Hi, Lufti,
…_BeforePrint ist eine Ereignisprozedur, d.h., wird sie angelegt, kann damit das in ihrem Namen genannte Ereignis abgefangen und zusätzl Operationen ausgelöst wdn. Derartige Subroutinen stehen quasi auf der „virtuellen Rückseite“ der Objekte (hier Blätter bzw das ebenfalls virtuelle „Mappenblatt“). Das sind auch Module, nämlich sog Dokument-Klassenmodule (merke! Ohne Modul geht nichts in VBA!).
Was Rudi meint ist, wenn du nur die Druckvorschau aufrufst (nicht Drucken) wird diese Aktion ebenfalls ausgelöst, was ja irgendwie logisch ist. Falls das aber nicht erwünscht sein sollte, weil die Farblöschung dauerhaft wäre (habe ich jetzt nicht überprüft), muss das abgefangen wdn. Außerdem ist das, was Rudi vorschlägt, immer gut, wenn es sich bei den auszulösenden Aktionen um etwas handelt, was mehr als 3 Zeilen Code beansprucht u/o nichts mit den Standard-Parametern der Prozedur wie hier bspw Cancel zu tun hat. Auch, wenn ich mich selbst nicht immer daran halte, sei dir gesagt, dass du dir so ggf viel Arbeit ersparen kannst, wenn du eine solche Prozedur quasi nur als Verteiler benutzt. Spezielle (Unter-)Pgmm können in der Proz bedingungsabhängig mit Call prozname(parameter…) oder nur prozname parameter… aufgerufen wdn. Parameter können, aber müssen nicht angegeben wdn (hängt von der aufzurufenden Proz ab).
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

Zell-Einfärbung mit BeforePrint aufheben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread