Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Datum

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