Datum

Forumthread: Datum

Datum

14.09.2005 17:47:01

wolli

Ich möchte in meiner Rechnung das Datum automatisch einfügen lassen. Z.B. in Celle H3 (TODAY).Anschließend Rechnung speichern.
Beim nächsten Öffnen soll dann das gespeicherte Datum erscheinen.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

s. RECHERCHE ot.

14.09.2005 18:47:25

th.heinrich
AW: Datum

14.09.2005 19:09:50

Tinu

s. RECHERCHE ot.

14.09.2005 18:47:25

th.heinrich

AW: Datum

14.09.2005 19:09:50

Tinu

Hallo Wolli
Option Explicit


Private Sub Workbook_Open()
If Worksheets(1).Range("H3") = "" Then
Range("H3").FormulaR1C1 = "=TODAY()"
End If
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Worksheets(1).Range("H3")
.Copy
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub

Gruss
Tinu

Forumthread: Datum

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread