title image


Smiley Re: Zahlen in Datum umwandeln
Hallo Olli



Option Explicit

Private Sub Workbook_Open()

Dim LRow As Long, z As Long, Spalte As String, NoNet As String

Spalte = "A" 'das "A" anpassen

With Sheets(1) 'anpassen

LRow = .Cells(.Cells.Rows.Count, Spalte).End(xlUp).Row

For z = 1 To LRow

NoNet = Cells(z, Spalte).Value

Cells(z, Spalte).Value = DateSerial(2000 + Mid(NoNet, Len(NoNet) - 5, 2), Mid(NoNet, Len(NoNet) - 3, 2), Right(NoNet, 2))

Next

End With

End Sub





das ist kopierbar



Option Explicit

Private Sub Workbook_Open()

Dim LRow As Long, z As Long, Spalte As String, NoNet As String

Spalte = "A" 'das "A" anpassen

With Sheets(1) 'anpassen

LRow = .Cells(.Cells.Rows.Count, Spalte).End(xlUp).Row

For z = 1 To LRow

NoNet = Cells(z, Spalte).Value

Cells(z, Spalte).Value = DateSerial(2000 + Mid(NoNet, Len(NoNet) - 5, 2), Mid(NoNet, Len(NoNet) - 3, 2), Right(NoNet, 2))

Next

End With

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: