ich hatte das gleiche Thema die Woche (01.03 17:40:51) schonmal eingestellt, allerdings kann ich irgendwie nicht mehr drauf antworten...
Hier nochmal folgendes Problem:
Ich habe meine Arbeitsmappe von 4 auf 13 Tabellenblättern erweitert. Auf allen soll ein VBA-Code laufen, welcher beim drucken jedes Tabellenblattes die Zeit und den Tag in eine Zelle schreibt. Nun unterscheidet sich aber das Format bei den neuen Tabellenblättern zu den "alten". Somit sollen in den neuen TB andere Zellen beim Drucken als bei den "alten" beschriftet werden.
Als ich noch 4 TB hatte, habe ich folgenden Code erfolgreich benutzt:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ScreenUpdating = False
Range("U1").Value = "1"
Range("U8").Value = Date
Range("U67").Value = Date
Range("U5").Value = Time
Range("U64").Value = Time
Application.ScreenUpdating = True
End Sub
Nun sollen bei den neuen TB nur folgende Zellen beschrieben werden: U1,U8,U5.
Den Tipp von Michael (danke dafür nochmal :-) ..habe ich wie folgt ausprobiert, das klappt nur _
nicht:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ScreenUpdating = False
Sheet_pruefen = Array("Tabelle1", "Tabelle5", "Tabelle9", "Tabelle13")
Range("U8").Value = Date
Range("U67").Value = Date
Range("U5").Value = Time
Range("U64").Value = Time
Sheet_pruefen = Array("Tabelle2", "Tabelle3", "Tabelle4", "Tabelle6", _
"Tabelle7", "Tabelle8", " Tabelle10", "Tabelle11", "Tabelle12")
Range("U1").Value = "1"
Range("U8").Value = Date
Range("U5").Value = Time
Application.ScreenUpdating = True
End Sub
Wie kann man den Code aufbauen/ändern?
Vielen Dank.
Fred