Nach wie vor Makro gesucht um JJJJMMTT umzuwandeln

Computer: Software & Programmierung Office Software
1

Hi @all,

ich beziehe mich auf einen bereits reingestellten Artikel.

Aus dem SAP erhalte ich ein Excelsheet mit nicht
Excel-konformen Datumswerten, z.B.
20010301 (01. März 2001)
20001121 (21. November 2000)
usw.

Mit dieser Funktion ist ein Umwandeln in TT.MM.JJ möglich:
=DATUM(LINKS(A1;4);TEIL(A1;5;2);RECHTS(A1;2))

Aber ich suche ein Makro, mit dem markierte Zell-Inhalte automatisch so umgewandelt werden.

Mit der Bitte um Hilfe.

Danke und Gruß,
Quentin

2

Hi Quentin,

folgender Code macht das von Dir Gewünschte, nämlich die markierten Zellen in ein Datum umwandeln.

Sub ChangeToDate()
For Each c In Selection
d = c.Value
c.Value = „“
c.NumberFormat = „m/d/yy“
c.Value = DateValue(Right(d, 2) & „.“ & Mid(d, 5, 2) & „.“ & Mid(d, 3, 2))
Next
End Sub

Das Zahlenformat kannst Du natürlich nach Belieben einstellen.

Viele Grüße
Sculpture

3

DANKE!!!
oT