![]() |
Betrifft: Datum
von: Joka
Geschrieben am: 23.04.2003 - 08:03:39
Hallo Leute,
also wenn ich die Formel =HEUTE() anwende dann klappt das ja wenn ich es heute mache und speichere. Aber wenn ich es dann morgen öffnen würde bleibt das nicht so und er würde das Datum auf den 24.04.03 setzen! Was kann ich machen damit das Datum was ich heute haben wollte gespeichert bleibt???
Joka
![]() ![]() |
Re: Datum
von: heinerv
Geschrieben am: 23.04.2003 - 08:21:47
Hallo Joka,
hier findest Du eine Lösung:
http://forum.myphorum.de/read.php?f=3040&i=18526&t=18523
mfg
heinerv
![]() ![]() |
Datum komisch...
von: Joka
Geschrieben am: 23.04.2003 - 08:34:31
Irgendwie klappt´s bei mir nich! was meint er mit Zellenformat (;;;) heiner? weißt du das ?
Joka
![]() ![]() |
Re: Datum
von: Kl@us-M.
Geschrieben am: 23.04.2003 - 10:20:18
Hallo Joka,
als Ansatz:
Sub Datum_und_Uhrzeit_stempeln()
Range("A1").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B1").Select
Selection.Cut Destination:=Range("A1")
Range("A1").Select
Selection.NumberFormat = "dd/mm/yy, hh:mm:ss"
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
End Sub
Gruss aus dem Hunsrück
Klaus-Martin
![]() ![]() |
Re: Datum komisch...
von: heinerv
Geschrieben am: 24.04.2003 - 07:55:15
Hallo Joka,
die Formatierung der Zelle mit ";;;" (einem oder mehreren
Strichpunkten) bewirkt, daß der Inhalt der Zelle nicht
mehr sichtbar ist. Somit würde in dem Fall der Inhalt der
Zelle A1 - also das aktuelle Datum - nicht zu sehen sein.
Gruß
heinerv
![]() |