Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
sFormat = Sheets("Tabelle1").Range("A1").NumberFormat
Sheets("Tabelle1").Range("A1").NumberFormat = ";;;"
Application.OnTime Now + TimeSerial(0, 0, 1), "FormatZurueckstellen"
End Sub
Modul Modul1
Option Explicit
Public sFormat As String
Sub FormatZurueckstellen()
Sheets("Tabelle1").Range("A1").NumberFormat = sFormat
End Sub
Gruß Tino
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim A As Integer
'Tabellen entsprechend eintragen
myTab = Split("Tabelle1,Tabelle2,Tabelle3,Tabelle4", ",")
sFormat = Sheets(myTab(0)).Range("A8").NumberFormat
For A = Lbound(myTab) To Ubound(myTab)
Sheets(myTab(A)).Range("A8").NumberFormat = ";;;"
Next A
Application.OnTime Now + TimeSerial(0, 0, 1), "FormatZurueckstellen"
End Sub
Modul Modul1
Option Explicit
Public sFormat As String, myTab() As String
Sub FormatZurueckstellen()
Dim A As Integer
For A = Lbound(myTab) To Ubound(myTab)
Sheets(myTab(A)).Range("A8").NumberFormat = sFormat
Next A
Erase myTab
End Sub
Gruß Tino