wie kann man erreichen, dass der Inhalt einzelner Zellen zwar angezeigt, aber nicht gedruckt wird?
Gruß
mike49
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim m
Application.EnableEvents = False
m = Range("A2").NumberFormat
Range("A2").NumberFormat = ";;;"
ActiveSheet.PrintOut
Range("A2").NumberFormat = m
Cancel = True
Application.EnableEvents = True
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim m1, m2
Application.EnableEvents = False
m1 = Range("G5").NumberFormat
m2 = Range("G6").NumberFormat
Range("A2").NumberFormat = ";;;"
ActiveSheet.PrintOut
Range("G5").NumberFormat = m1
Range("G6").NumberFormat = m2
Cancel = True
Application.EnableEvents = True
End Sub
Private Function TABELLE_AUF_NULL(strTabelle As String) As Boolean
' On Error GoTo Ende 'Fehlerbehandlung übernehmen.
With ThisWorkbook.Sheets(strTabelle) 'Alles auf dieses Tabellenblatt beziehen:
.Unprotect
.Range("E8:F38").ClearContents
.Range("G8:G38").FormulaLocal = "=WENN(F8>0;""0:00"";"""")"
.Protect
'Application.Goto .Cells(1, 1), True
Application.Goto .Range("E8")
End With
TABELLE_AUF_NULL = True 'Erfolg vermerken.
Ende:
' On Error GoTo 0 'Fehlerbehandlung zurückgeben.
End Function
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim m1, m2
Application.EnableEvents = False
m1 = Range("G5").NumberFormat
m2 = Range("G6").NumberFormat
Range("G5").NumberFormat = ";;;"
Range("G6").NumberFormat = ";;;"
ActiveSheet.PrintOut
Range("G5").NumberFormat = m1
Range("G6").NumberFormat = m2
Cancel = True
Application.EnableEvents = True
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
With ActiveSheet
.Range("A2").Interior.ColorIndex = 2
.PrintOut
.Range("A2").Interior.ColorIndex = 0
Cancel = True
End With
Application.EnableEvents = True
End Sub