die auszublendenen werte sind Hyperlinks( für das Tabellenblatt)
Bitte um Hilfe
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Sheets("Tabelle1")
'Zellformat einstellen, damit dieser leer erscheind
.Range("D2:D5").NumberFormat = ";;;"
End With
Application.OnTime Now + TimeSerial(0, 0, 1), "Zurueckstellen"
End Sub
kommt als Code in Modul1
Option Explicit
Sub Zurueckstellen()
With Sheets("Tabelle1")
'hier Zellformat zurückstellen, eventuell anpassen
.Range("D2:D5").NumberFormat = "General"
End With
End Sub
Gruß Tino