Drucken ohne Farbe

Forumthread: Drucken ohne Farbe
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Drucken ohne Farbe

Drucken ohne Farbe

04.08.2017 12:21:02

Jürgen

Hallo zusammen,
wir haben ein Excel Formular.
einige Zellen sind Grau hinterlegt und andere Grün.
Zum bearbeiten sind die Farben sehr sehr hilfreich.
Aber ich möchte gerne, dass beim drucken das Grau mit druckt aber das grüne soll weiß bleiben.
Klar, kann ich jede Zelle markieren und Markierung aufheben, aber würde es eine andere Lösung geben?
Danke
Jürgen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Drucken ohne Farbe

04.08.2017 13:41:13

Beverly
AW: Drucken ohne Farbe

04.08.2017 16:16:30

jürgen

AW: Drucken ohne Farbe

04.08.2017 13:41:13

Beverly

Hi Jürgen,
eine Möglichkeit mit folgendem Makro:

Sub OhneFarbeDrucken()
Dim rngZelle As Range
Dim rngBereich As Range
For Each rngZelle In ActiveSheet.UsedRange
If rngZelle.Interior.Color = 5287936 Then
If rngBereich Is Nothing Then
Set rngBereich = rngZelle
Else
Set rngBereich = Union(rngBereich, rngZelle)
End If
End If
Next rngZelle
rngBereich.Interior.ColorIndex = xlNone
ActiveSheet.PrintOut
rngBereich.Interior.Color = 5287936
Set rngBereich = Nothing
End Sub

Farbe für Grün musst du selbstverständlich anpassen.

AW: Drucken ohne Farbe

04.08.2017 16:16:30

jürgen

super danke