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
Option Explicit
Sub Zurueckstellen()
With Sheets("Tabelle1")
'hier Zellformat zurückstellen, eventuell anpassen
.Range("D2:D5").NumberFormat = "General"
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen