abspeichern datumsbezogen
10.12.2004 22:56:03
mayk
nun möchte ich in tabelle1 die Zellen c5:c32 einem aktuellen Datum (funktion datum heute )c4 zuordnen. die eingabe soll in tab 1 immer auf c5:c32 bleiben (mit aktuellem datum auf c4) beim speichern aber würden sich die daten dann immer in tab. 2 auf c5:c32 überschreiben, wenn ich heute 10.12.speichere dann auf c5:c32 morgen 11.12. dann auf d5:d32 und das 365 tage?
funktioniert soetwas wenn ja wie?
Application.ScreenUpdating = False
Range("C5:C32").Copy
Workbooks.Open Filename:= _
"P:\mayk\Übersicht Paletten\datenblatt.xls"
ActiveSheet.[c5].PasteSpecial Paste:=xlAll, Operation:=xlAdd, _
SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWindow.Close
Application.CutCopyMode = False
Range("C5:C32").ClearContents
Application.ScreenUpdating = True