Zusatz…
Hallo noch einmal,
folgendes/r Makro ist noch im aktiven Sheet vorhanden:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = Format(Date, „yyyy-mmmm-dd“)
End Sub
Verstehe aber nicht, abgesehen, dass es nicht allen Tabellenblaettern angezeigt wird, warum nun nicht das aktuelle Datum angezeigt wird.
Im Moment ist das gewuenschte Datumsformat auf den 2010-April-24 datiert.
Bitte um Hilfe, danke! J
Hallo Michael,
folgendes/r Makro ist noch im aktiven Sheet vorhanden:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = Format(Date,
„yyyy-mmmm-dd“)
End Sub
dieses Makro ist im Modul eines Blattes wirkungslos.
Es gehört in das Moul „Diese Arbeitsmappe“.
Dann fügt es vor dem Ausdruck in grad zu druckende Blatt in der Kopfzeile das aktuelle Datum ein.
Verstehe aber nicht, abgesehen, dass es nicht allen
Tabellenblaettern angezeigt wird,
Habe ich soeben erklärt. Es trägt nur in die „gedruckten“ Blätter das Datum ein.
warum nun nicht das aktuelle
Datum angezeigt wird.
Im Moment ist das gewuenschte Datumsformat auf den
2010-April-24 datiert.
Dann ist dein Systemdatum falsch.
Zu der Scleife, der Code gehört in ein Standardmodul wie Modul1 o.ä.:
Option Explicit
Sub DatumInKopfzeile()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.PageSetup.RightHeader = Format(Date, "yyyy-mmmm-dd")
Next wks
End Sub
Damit wird in allen Blättern das aktuelle datum eingetragen, das ist dann fest, also morgen steht da immer noch das Datum von heute usw.
Bitte um Hilfe, danke
Wir auch, daß du uns genauer informierst was genau vorliegt und was du machen willst.
Gruß
Reinhard
Guten Morgen,
folgendes/r Makro ist noch im aktiven Sheet vorhanden:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = Format(Date,
„yyyy-mmmm-dd“)
End Sub
Dieses Makro ist aber im aktuellen Arbeitsblatt, also ‚diese Arbeitsmappe‘
Moechte lediglich, dass das aktuelle, jeweils heutige Datum im gewuenschten Datumsformat auf allen Blaettern erscheint.
Das o.g. Makro realisiert dies nicht, warum auch immer.
Auch nach dem Drucken erscheint das Datum von dem Tag, an dem ich das Makro gesetzt habe.
Sub DatumInKopfzeile()
Kann man ein Makro auch in Deutsch erfassen?
Wir auch, daß du uns genauer informierst was genau vorliegt
und was du machen willst.
Das darf doch eindeutig gewesen sein?! J
Viele Gruesse
Michael
Grüezi Michael
Dieses Makro ist aber im aktuellen Arbeitsblatt, also ‚diese
Arbeitsmappe‘
Ich glaube, da fehlt noch einiges an Grundlagen.
‚Diese Arbeitsmappe‘ ist nicht das aktuelle ‚Arbeitsblatt‘, sondern Das Klassenmodul der Mappe.
Moechte lediglich, dass das aktuelle, jeweils heutige Datum im
gewuenschten Datumsformat auf allen Blaettern erscheint.
Das o.g. Makro realisiert dies nicht, warum auch immer.
Dann baue halt die Schleife aus Reinhards Code ins Workbook_BeforePrint() ein - das ist ja nicht allzu schwer:
Private Sub Workbook\_BeforePrint(Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.PageSetup.RightHeader = Format(Date, "yyyy-mmmm-dd")
Next wks
End Sub
Sub DatumInKopfzeile()
Kann man ein Makro auch in Deutsch erfassen?
Namen sind Schall und Rauch - die Befehle müssen der VBA-Sprache und -Syntax entsprechen, die Benamsung ist egal.
Mit freundlichen Grüssen
Thomas Ramel