kann mir bitte jemand sagen, wie ich mir Zellen in einem Arbeitsblatt anzeigen lassen kann,
welche aber dann nicht mit gedruckt werden.
Danke im Vorraus...
VB-Code: |
Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim Tmp$, TB 'Bereich: sind die benannten Zellen, die nicht gedruckt werden sollen Cancel = True Application.EnableEvents = False Set TB = ActiveSheet Tmp = TB.Name TB.Copy after:=Sheets(Sheets.Count) TB.Name = "#Original#" ActiveSheet.Name = Tmp Sheets(Tmp).Range("Bereich").Clear Sheets(Tmp).PrintOut Application.DisplayAlerts = False Sheets(Tmp).Delete TB.Name = Tmp Fehler: If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear Application.EnableEvents = True Application.DisplayAlerts = True End Sub - Die aktuelle Tabelle wird copiert - darin werden die Zellen, die als benannter Bereich vorliegen, gelöscht - ausgedruckt - Temporäre Tabelle wird wieder gelöscht. Ursprungstabelle wird wieder richtig benannt. Gruß UweD |