title image


Smiley Re: Zahlen in Datum umwandeln
Hallo,

so könnte es gehen:



Private Sub Workbook_Open()



Dim myDate As Date

Dim I As Long



For I = 1 To Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row

myDate = DateSerial(1900 + CInt(Mid(Range("A" & I), 1, Len(Range("A" & I)) - 4)), _

CInt(Mid(Range("A" & I), Len(Range("A" & I)) - 3, 2)), CInt(Right(Range("A" & I), 2)))

Range("A" & I).Value = myDate

Next I



End Sub


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: