Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1636to1640
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

Farbe beim Drucken daktivieren

Farbe beim Drucken daktivieren
14.08.2018 19:16:28
philipp
Guten Abend zusammen,
ich habe folgendes Makro in meinem Druckmenü, damit die in der Zelle hinterlegte
Farbe nicht mitgedruckt wird:
ActiveSheet.Range("H31").Select
Selection.Interior.ColorIndex = xlNone
Hiermit wird die Füllfarbe wieder hinterlegt:
ActiveSheet.Range("H31").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13434879
.TintAndShade = 0
.PatternTintAndShade = 0
End With
da ich aber mehrere Zellen habe such ich eine bessere Lösung, sonst muss ich
ja 14 dieser Makros einsetzen.
E27 bis E32, C26,C39 ...
würde mich freuen wenn jemand behilflich ist,
mfg
philipp

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbe beim Drucken daktivieren
14.08.2018 19:20:15
Hajo_Zi
Hallo Philipp,
Seite einrichten, Blatt, Schwarzweiß Druck.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Geht nicht weil...
14.08.2018 19:28:49
philipp
Hallo Hajo,
das geht nicht da im Kopf einige farbige Symbole gedruckt werden sollen.
mfg
philipp
AW: Geht nicht weil...
14.08.2018 20:21:00
Robert
Hallo philipp,
ein Ansatz wäre vielleicht nachstehendes Makro. In dem Makro wird das aktive Tabellenblatt kopiert. In der Kopie werden dann die Hintergründe entfernt und in meinem Makro die Druckvorschau gestartet. Stattdessen kannst Du bei Dir Deine Druck-Anweisungen eintragen, die hast Du ja nicht angegeben. Anschließend wird die Kopie des Tabellenblattes wieder gelöscht.
Sub TabDrucken()
Dim wks As Worksheet
Set wks = ActiveSheet
'Aktive Tabelle kopieren
wks.Copy After:=Sheets(Sheets.Count)
'in neeuem Tabellenblatt Hintergünde entfernen
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
'Druckvorschau anzeigen, hier Deine Druckanweisungen hinterlegen
ActiveWindow.SelectedSheets.PrintPreview
'Tabellen-Kopie wieder löschen
Application.DisplayAlerts = False
ActiveSheet.Delete
wks.Activate
Application.DisplayAlerts = False
End Sub
Gruß
Robert
Anzeige
AW: Geht nicht weil...
14.08.2018 21:18:37
philipp
Hallo Robert,
das klappt so nicht da mindestens 3 Personen damit Drucken und das nicht verstehen.
Ich will mal die Makros so verändern das man alle Zellen ansprechen kann.
mfg
philipp
So gehts, danke an alle -)
14.08.2018 21:28:04
philipp
Hallo zusammen,
so funktioniert es:
hier Farbe raus:
ActiveSheet.Range("C26,C39,E27:E32,H26,H31,F35,F37,E40:E42").Select
Selection.Interior.ColorIndex = xlNone
hier Farbe wieder rein:
ActiveSheet.Range("C26,C39,E27:E32,H26,H31,F35,F37,E40:E42").Select
Selection.Interior.ColorIndex = xlNone
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13434879
.TintAndShade = 0
.PatternTintAndShade = 0
End With
mfg
philipp
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige