' Einzelne Zelle nicht drucken, in diesem Fall Zelle B1
Sub Zelle_nicht_Drucken()
Dim TMP As String
With Worksheets("Tabelle1")
.[B1].Activate ' Zelle B1 nicht drucken
TMP = ActiveCell.NumberFormat
ActiveCell.NumberFormat = ";;;"
ActiveSheet.PrintOut
ActiveCell.NumberFormat = TMP
End With
End Sub
' Der markierte Bereich wird nicht ausgedruckt
Sub Bereich_nicht_Drucken()
Dim TMP() As String
Dim Bereich As Range
Dim n As Integer
Set Bereich = ActiveWindow.RangeSelection
ReDim TMP(Bereich.Cells.Count)
For n = 1 To Bereich.Cells.Count
Bereich.Cells(n).Select
TMP(n) = ActiveCell.NumberFormat
ActiveCell.NumberFormat = ";;;"
Next n
ActiveSheet.PrintOut
For n = 1 To Bereich.Cells.Count
Bereich.Cells(n).Select
ActiveCell.NumberFormat = TMP(n)
Next n
End Sub