Supportnet / Forum / Tabellenkalkulation
Gibt es eine Möglichkeit die Zellen einzufärben oder zu umranden, ohne das diese "Markierung" gedruckt wird?
Frage
Ich möchte für ein komplexes File gewisse Zellen markieren, um später noch zu wissen, welche ich verändern kann, ohne das die Formeln zerstört werden. Beim Ausdruck sollten diese "Markierungen " aber nicht erscheinen. Die Zellen würden als Formularfeld dienen.
Antwort 1 von CaroS
Hallo lap,
der farbige Hintergrund wird beim Schwarzweiß-Druck nicht mitgedruckt, Werte in den Zellen und Rahmen um die Zellen werden schwarz gedruckt.
Einstellbar über Menü Datei -- Seite einrichten... -- Register Tabelle -- Abschnitt Drucken -- Häkchen bei Schwarzweißdruck -- OK.
Gruß,
CaroS
der farbige Hintergrund wird beim Schwarzweiß-Druck nicht mitgedruckt, Werte in den Zellen und Rahmen um die Zellen werden schwarz gedruckt.
Einstellbar über Menü Datei -- Seite einrichten... -- Register Tabelle -- Abschnitt Drucken -- Häkchen bei Schwarzweißdruck -- OK.
Gruß,
CaroS
Antwort 2 von nighty
hi all :)
erhaelt alles farbige ausser die hintergrundfarbe einer zelle :)
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
erhaelt alles farbige ausser die hintergrundfarbe einer zelle :)
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
Antwort 3 von lap
herzlichen dank für die antworten leider habe ich noch farbige grafiken in der tabelle, welche beim s/w-Druck auch s/w gedruckt werden.
Lieber nighty
wie muss ich Deinen text verstehen? Wohin damit? Ist das ein Makrobefehl?
Lieber nighty
wie muss ich Deinen text verstehen? Wohin damit? Ist das ein Makrobefehl?
Antwort 4 von nighty
hi all :)
einzufuegen unter
alt f11/einfuegen/modul
und start (F5)
bedencke das die ganze tabelle abgetastet wird,alternativ bereichsangaben
gruss nighty
einzufuegen unter
alt f11/einfuegen/modul
und start (F5)
bedencke das die ganze tabelle abgetastet wird,alternativ bereichsangaben
gruss nighty