Zeichenfolge in Datum umwandeln

[Eltschoharra]

Hallo liebe Leut,

@Attila und Peter hat funktioniert iss zwar ein bisschen manueller Aufwand aber geht Danke

@Ralf hat leider nicht wie gewünscht funktioniert hab noch mal ein Excel file eingestellt aus der das Problem ersichtlich ist

Gruß

Michael

[RPP63]

Hi!
Ja, das Format war falsch.
Mach mal:

Sub TextzahlenUmwandeln()
Dim Zelle As Range
Application.ScreenUpdating = False
With ActiveSheet.Columns("C") '###hier die Spalte auswählen!### 
   .NumberFormat = "dd/mm/yyyy hh:mm:ss"
   For Each Zelle In .SpecialCells(xlCellTypeConstants)
      If IsDate(Zelle) Then
         Zelle = CDate(Zelle)
      ElseIf IsNumeric(Zelle) Then
         Zelle = CDbl(Zelle)
      End If
   Next
End With
End Sub

Gruß Ralf

[snb]

Code:

Sub M_snb()
   sn = Tabelle1.Columns(3).SpecialCells(2)
   Tabelle1.Cells(1, 7).Resize(UBound(sn)) = sn
   Tabelle1.Columns(7).NumberFormat = "dd.mm.yyyy hh:mm:ss"
End Sub

oder

Code:

Sub M_snb()
   Tabelle1.Columns(7).NumberFormat = "dd.mm.yyyy hh:mm:ss"
   With Tabelle1.Columns(3).SpecialCells(2)
      .Offset(, 4) = .Value
   End With
End Sub