würde auch gerne Excel-Zellen mit einer No-Print-Option versehen.
Die Ideen mit Textfeld und so kann ich leider nich anwenden, da auf die Tabellen ein Bezug in einer Formel genommen wird.
Viele Grüße
OLE
Sub KeinDruck()
Range("A1:A6").Select
Selection.Font.ColorIndex = 2 'Schritfarbe weiss
Range("D3:D7").Select
Selection.Font.ColorIndex = 2
Range("F9:F13").Select
Selection.Font.ColorIndex = 2
End Sub
Sub Druck()
Range("A1:A6").Select
Selection.Font.ColorIndex = 0 'Farbe automatisch
Range("D3:D7").Select
Selection.Font.ColorIndex = 0
Range("F9:F13").Select
Selection.Font.ColorIndex = 0
End Sub