Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blatt ohne Hintergrundfarbe drucken geht das?

Blatt ohne Hintergrundfarbe drucken geht das?
14.10.2004 14:59:08
Drazen
Hi nochmal,
Kann man eigentlich ein Blatt drucken und nur den Zelleninhalt drucken, den Hintergrund aber nicht?
Beispiel: Ich möchte in eine Zelle einen Text eingeben (Schwarz) und Färbe den Zellhintergrund aber in Rot, und möchte beim Drucken nur den Text haben, nicht die Zellfärbung, geht das?
Grüsse
Drazen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt ohne Hintergrundfarbe drucken geht das?
Galenzo
Hallo,
vielleicht reicht dir ja schon das:
"Datei / Seite einrichten / Tabelle / Schwarz-Weiß-Druck" ankreuzen
Viel Erfolg!
AW: Blatt ohne Hintergrundfarbe drucken geht das?
Nike
Hi,
menue:
Datei/Seite einrichten/Blatt/Drucken/Schwarz weiss anhaken...
Bye
Nike
AW: Blatt ohne Hintergrundfarbe drucken geht das?
nighty
hi drazen :)
wie gewuenscht :))
gruss nighty

Sub Makro1()
Dim zaehler0 As Long
Dim zaehler1 As Integer
ReDim tab1(Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row, Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column)
For zaehler0 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
If Cells(zaehler0, zaehler1).Interior.ColorIndex <> -4142 Then
tab1(zaehler0, zaehler1) = Cells(zaehler0, zaehler1).Interior.ColorIndex
Cells(zaehler0, zaehler1).Interior.ColorIndex = -4142
End If
Next zaehler1
Next zaehler0
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
For zaehler0 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
If tab1(zaehler0, zaehler1) > 0 Then Cells(zaehler0, zaehler1).Interior.ColorIndex = tab1(zaehler0, zaehler1)
Next zaehler1
Next zaehler0
End Sub

Anzeige

116 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige