ich möchte ein Arbeitsblatt (Dienstplan) ausdrucken, allerdings ohne den Inhalt der Zellen B1;C1;E1 und F1
Kann mir jemand schreiben, wie ich dies umsetze?
Mit freundlichen Gruß
Fred
Sub Drucken()
Dim Bereich As Range
Set Bereich = Range("B1,C1, E1,F1")
Bereich.Font.ColorIndex = 2
ActiveSheet.Print
Bereich.Font.ColorIndex = 1
Set Bereich = Nothing
End Sub
Wenn die Hintergrundfarbe der Zellen nicht weiss bzw. ohne Farbe sind