Zeichenfolge in Datum umwandeln

[Eltschoharra]

  Text umwandelnl.xlsx (Größe: 11,84 KB / Downloads: 12)
Hallo Liebe Leut,

ich hätt da mal ein problem

diese Zeichenfolgen muss ich in ein Datum umwandeln:

12/22/2015 6:14:53 PM

1/15/2016 2:20:46 PM

Sie kommen aus einer Datenbank export den ich in der Form nicht beeinflussen kann.
wird mir als Text in einer Tabelle geliefert.

Habt ihr da eine Idee ?

Vielen Dank schon mal

[RPP63]

Hi!
Eine Sache für mein Schweizer Taschenmesser.  :05:

Sub TextzahlenUmwandeln()
Dim Zelle As Range
Application.ScreenUpdating = False
With ActiveSheet.Columns("B") '###hier die Spalte auswählen!### 
   .NumberFormat = "General"
   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

[Peter]

Hallo,

oder mit einer Formel wie z.B.

=(TEIL(WECHSELN(B3;"/";"/"&LINKS(B3;SUCHEN("/";B3));2);SUCHEN("/";B3)+1;99))+0

Anschliessend (optional):

- den Bereich mit den Formeln markieren
- mit Strg-C in die Zwischenablage kopieren
- rechte Maus - Inhalte einfügen - Werte - Ok

Dadurch werden die Formeln im markierten Bereich in Werte umgewandelt und man kann jetzt die bisherige Spalte löschen

[RPP63]

Gerade gesehen:
1/6/2016 wandelt das Makro FALSCH in 1.6.2016 um.
Deshalb muss das Zahlenformat (scheinbar widersinnig) in "mm/dd/yyyy" umgewandelt werden:

Sub TextzahlenUmwandeln()
Dim Zelle As Range
Application.ScreenUpdating = False
With ActiveSheet.Columns("B") '###hier die Spalte auswählen!### 
   .NumberFormat = "mm/dd/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

[atilla]

Hallo,

wenn Datum und Uhrzeit in zwei Spalten getrennt stehen können, dann geht es mit Excel Bordmittel ohne Formeln und ohne VBA:

1.
-Bereich markieren
-Text in Spalten - Getrennt
nach Leerzeichen Datum und Uhrzeit in einzelne Spalten trennen.

2.
Dann die Spalte mit Datum noch einmal markieren und wieder Text in Spalten, diesmal Option Feste Breite
Weiter bis man das Datenformat auswählen kann.
Dort bei Datum das Format MTJ wählen und mit Fertig stellen Fenster schließen

[atilla]

Hallo noch einmal,

das von mir oben beschriebene geht in einem Schritt.

Also vorausgesetzt, Datum und Zeit können in zwei Spalten getraennt stehen, dann

-Daten -> Text in Spalte -> Getrennt -> Leerzeichen als Tenner -> weiter bis Datenformat wählbar -> Datum Format: MTJ und Fertig stellen.

[Peter]

Hallo,

oh Mann ich bin ein Depp - ich hatte Text in Spalten zuerst ausprobiert und dabei das falsche Format verwendet

Das mit Text in Spalten geht aber auch in einem Schritt:

Text in Spalten - Getrennt - Leerzeichen wählen - für die Spalte Datum MTJ wählen und bei den beiden folgenden Spalten könnte man auch auswählen, dass diese Werte nicht importiert werden sollen.

Nachtrag: Ich habe erst nach dem Absenden gesehen, dass Attila ebenfalls auf die 'Ein-Schritt-Methode' hingewiesen hat. Wegen des Hinweises, dass die beiden Spalten nicht unbedingt importiert werden müssen lasse ich mein Posting jetzt mal stehen.

[atilla]

Hallo Peter,

Das mit Text in Spalten geht aber auch in einem Schritt:

zu spät. Siehe meinen Beitrag zwei Minuten vor Deinem :19:

[Peter]

Hallo,

jepp, das Tippen auf dem Ipad geht etwas langsamer als auf der Tastatur.

[Eltschoharra]

Boooah jetzt bin ich platt !!!

Danke erstmal für die vielen Antworten dickes Lob an der Stelle !
Muss jetzt mal ausprobieren was so passt.

Gruß

Michael