Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Zahlenfolge in Datum umwandeln





Frage

Hallo ich habe fogendes Problem: in einer Zelle befinded sich ein Datum, dass aber nicht als solches von Excel erkannt wird. Das Format ist: 20031115 = 15.11.2003 Um diese Zahl in ein Datum umzuwandeln, moechte ich einen / einfuegen, also 2003/11/15, was dann als Datum erkannt wird. Ueber suchen/ersetzen ist mir das leider nicht gelungen. Hat jemand einen Tipp? Danke,

Antwort 1 von nighty

hi alle :)

hier ein makro was von einer bestehenden markierung dieses 20040305 in dieses wandelt 05.03.2004 :)

erlaubt ist eine markierung von a-z und zeilen bis ende

gruss nighty

Sub Makro1()
Dim b$(1)
adress$ = ActiveWindow.RangeSelection.Address
For zeichenzaehler% = 1 To Len(ActiveWindow.RangeSelection.Address)
If Mid$(adress$, zeichenzaehler%, 1) = ":" Then
w = w + 1
zeichenzaehler% = zeichenzaehler% + 1
End If
If Mid$(adress$, zeichenzaehler%, 1) <> "$" Then
b$(w) = b$(w) + Mid$(adress$, zeichenzaehler%, 1)
End If
Next zeichenzaehler%
For zeile = Val(Mid$(b$(0), 2, Len(b$(0)))) To Val(Mid$(b$(1), 2, Len(b$(1))))
For spalte% = Asc(Mid$(b$(0), 1, 1)) To Asc(Mid$(b$(1), 1, 1))
If Range(Chr$(spalte%) & zeile) <> "" Then
a2$ = Mid$(Range(Chr$(spalte%) & zeile), 7, 2) & "." & Mid$(Range(Chr$(spalte%) & zeile), 5, 2) & "." & Mid$(Range(Chr$(spalte%) & zeile), 1, 4)
Range(Chr$(spalte%) & zeile) = a2$
End If
Next spalte%
Next zeile
End Sub


Antwort 2 von pelle

Hallo sascros1,

als Alternative zu "nigthy"´s Vorschlag

Zelle A1 steht dein 20031115
(Format Text oder Standard ist egal)

Zelle B1
folgende Funktion einfügen:
=DATWERT(VERKETTEN(TEIL((A1);7;2)&"."&TEIL((A1);5;2)&"."&TEIL((A1);1;4)))

Zelle formatieren TT.MM.JJJJ

gruss
pelle