Datum extrahieren
17.10.2013 15:34:34
Hans
aus einer Zelle mit Datum mit Zeit, soll in nur Datum umgewandelt werden.
Das löse ich so:
Sub test()
datum = Range("a5")
Range("b5") = Format(datum, "dd.mm.yyyy")
End Sub
Zur besseren Veranschaulichung s.Datei.
https://www.herber.de/bbs/user/87685.xls
Danke schon mal für Eure hilfe.
Grüße
Hans
Anzeige