Before Print
21.03.2003 16:11:41
Andreas
Ich möchte vor dem Ausdruck von z.B. Tabelle1 in Tabelle2 das heutige Datum in eine bestimmte Zelle einfügen lassen.
Ich habe schon herumprobiert wie der nachstehnde Code zeigt,
aber leider funkioniert es nicht.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Fahrtkosten" Then
Range("B4").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
End Sub