aud Zahl Datum machen

• aud Zahl Datum machen von Markus vom 18.09.2003 19:35:26
  • AW: aud Zahl Datum machen - von ChrisL am 18.09.2003 19:45:56
    • Danke Dir, - von Markus am 18.09.2003 22:47:32

Betrifft: aud Zahl Datum machen
von: Markus
Geschrieben am: 18.09.2003 19:35:26
Hallo

ich habe ein Problem bei dem ich bitte Eure Hilfe brauche.

Und zwar steht in einer Spalte, dass Datum folgendem Format

20020919

Ich soll es nun hinbekommen, dass ein richtiges DAtum ala 19.09.2002 hinbekomme.

Wie kann ich dies erreichen?

Danke für Eure Hilfe

Markus

Betrifft: AW: aud Zahl Datum machen
von: ChrisL
Geschrieben am: 18.09.2003 19:45:56
Hi Markus

Versuchs mal hiermit...

Option Explicit

Sub Datumsumwandlung()
Dim Zelle As Object
For Each Zelle In ActiveSheet.UsedRange
If IsNumeric(Zelle) And Len(Zelle) = 8 Then _
Zelle = CDate(Right(Zelle, 2) & "." & Mid(Zelle, 5, 2) & "." & Left(Zelle, 4))
Next Zelle
End Sub

Gruss
Chris

Betrifft: Danke Dir,
von: Markus
Geschrieben am: 18.09.2003 22:47:32
klappt prima.

Markus

Excel-Beispiele zum Thema " aud Zahl Datum machen"
Abweichungen sichtbar machen