Vba, excel97: now()ohne zeit

hallo,

ich finde keine möglichkeit, die ausgabe von now() zu formatieren bzw. abzuschneiden. ich wollt´ ich hätt ein ergebnis in form von 09.09.2002…

…wie bekomm ich die zeit weg?

danke für die hilfe!

kalli

die wahl der qual :smile:

MsgBox CDate(Fix((Now)))
MsgBox Format(Now, „dd.mm.yyyy“)
MsgBox Mid(Now, 1, 10)
MsgBox Day(Now) & „.“ & Month(Now) & „.“ & Year(Now)
MsgBox FormatDateTime(Now, vbShortDate)

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

die wahl der qual :smile:

MsgBox CDate(Fix((Now)))
MsgBox Format(Now, „dd.mm.yyyy“)
MsgBox Mid(Now, 1, 10)
MsgBox Day(Now) & „.“ & Month(Now) & „.“ & Year(Now)
MsgBox FormatDateTime(Now, vbShortDate)

äh - fast :smile: gegeben ist

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
Cells(Target.Row, 2) = Mid(Now, 1, 10)
End If
End Sub

die ausgaben in B sehen auch wundevoll aus - nur einem vergleich halten sie nicht stand: wenn(B[?]=heute();„ja“;„nein“) gibt „nein“

wenn ich die auto-eingabe in der bearbeitungsleiste einmal anklicke (ohne was zu verändern) gehts plötzlich, aber nicht automatisch.

und nu? *g*

ja ist ja logisch, denn im feld B befindet sich „nur“ einen string. Formatiere doch die spalte auf datum!
dann brauchst du auch die konvertierung nicht mehr.

und btw: die Mid() variante ist so ziemlich die unschönste :wink:

gruss

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

>und btw: die Mid() variante ist so ziemlich die unschönste :wink:

hallo :smile:

menno - ich fang doch grad erst an :-/ schimpf doch nicht so… *lächel*

die ganze spalte ist als datum formatiert - nur das interessiert excel scheinbar erst, wenn ich einmal draufgeklickt hab. das ist ja das problem :frowning:

kalli

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

bei mir geht es wunderbar :smile:

vielleicht sendest du mir ja mal dein excel oder eine demo

gruss

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Nimm einfach Date() anstelle von Now()

Gruß aus dem Norden
Reinhard Kraasch (http://www.kraasch.de - VB(A) Tipps & Tricks)