---

Wie bekomme ich eine DAtumsangabe in der Form "May 3 2010" am schnellsten in die Form "03.05.2010" konvertiert. Ich habe eine Tabelle mit vielen Zeilen und sollte das möglichst effizient machen. (Englische Monate, deutsches Excel)

Excel 2007

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Abend Axel,

versuche das mal so.

CU, Bernd
--

Code:

---

Option Explicit
Option Private Module

Const cstrMonth = "jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec"
Dim objRe As Object

Sub main()
  Dim i As Long
 
  Set objRe = CreateObject("vbscript.regexp")
  objRe.Pattern = "^(" & cstrMonth & ") *(\d{1,2}) *(\d{4})$"
  objRe.IgnoreCase = True
 
  Range("A1") = "May 3 2010"
  Range("A2") = "DEC 24 2011"
 
  For i = 1 To 2
      Cells(i, 2).Value = ConvertDate(Cells(i, 1).Value)
  Next
 
  Set objRe = Nothing
End Sub

Function ConvertDate(ByVal strUSDate As String) As Date
  Dim objMc As Object
  Dim intIndex As Integer
 
  Set objMc = objRe.Execute(strUSDate)
  If objMc.Count Then
      With objMc(0)
        intIndex = InStr(1, cstrMonth, .SubMatches(0), vbTextCompare)
        ConvertDate = DateSerial(CInt(.SubMatches(2)), (intIndex + 3) / 4, CInt(.SubMatches(1)))
      End With
  End If
End Function

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Axel,

Ich gehe mal davon aus, dass Excel 2007 gleich reagiert wie Excel 2000.

Alle Zeilen markieren, dann "Format" - "Zellen", auf die Kategorie Benutzerdefiniert
wechseln, und dann als Typ TT.MM.JJJJ eingeben. (Ev. müssen die Buchstaben durch jene von der englischen Version ersetzt werden, ev. DD.MM.YYYY.

M --> 4
MM --> 04
MMM --> Apr.
MMMM --> April

Gruss
Mike

------------------

The Power Of Dreams

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Mike,
ich bekomme die Datei als excelfile und die Datumsspalte ist Text. Ich hatte es zuerst auch so versucht, aber ich muss es zuerst "konvertieren, bevor ich es umformatieren kann. Wenn es mal sauber ein Datumsformat ist, weiss ich schon was machen, dann kommt ja noch die engl./dt. Monatsbezeichnungen dazu.

@Bernd,
danke, werde Dein Makro morgen mal ausprobieren. Hatte gehofft dass es da einen Trick ohne Makro gibt.

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

226_001441_datum.xls.txt

Als reine Excel Variante.

Da die Eingabe als Text vorhanden ist, komme ich nur mit Stück für Stück zusammensetzten hin.

Gruss
Mike

------------------

The Power Of Dreams

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für Eure Lösungen, habe jetzt die Macro Lösung von Bernd, ich konnte so noch etliche andere Sachen einbauen  .

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bernd hat ja schon den perfekten Code geliefert ;-)

somit ist der FormelEinzeiler nur sportlich zu sehen 

Code:

---

=DATUM(RECHTS(A1;4);VERGLEICH(KLEIN(LINKS(A1;3));{"jan";"feb";"mar";"apr";"may";"jun";"jul";"aug";"sep";"oct";"nov";"dec"};0);TEIL(A1;FINDEN(" ";A1;1)+1;LÄNGE(A1)-FINDEN(" ";A1;1)-4))

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas!
Ich habe im cad Forum eine Antwort von dir gefunden, wie man ein Datum mit einer formel konvertiert.
Hast Du vielleicht eine Lösung für diese: 16/Mar/14 soll als 16.03.14 dargestellt werden?
Zur Info 16/Apr/14 konvertiert xls von alleine in 16.04.14.
lg
Larissa

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Verwende MRZ statt MAR.
Excel hat da so seine Zickigkeiten bei den Sprachen...
Kanone -> Spatz: >> http://www.office-loesung.de/ftopic372248_0_0_asc.php

[edit] Fingerübung nachgeschoben:
Thomas' Formel angepaßt auf Deine Bedürfnisse sähe so aus:

Code:

---

=DATUM(RECHTS(A1;2);VERGLEICH(KLEIN(TEIL(A1;FINDEN("/";A1;1)+1;LÄNGE(A1)-FINDEN("/";A1;1)-3));{"jan";"feb";"mar";"apr";"may";"jun";"jul";"aug";"sep";"oct";"nov";"dec"};0);LIN KS(A1;2))

---

die wirft aber 1914 aus, also Jahr vollständig schreiben [16/mar/2014] und so:

Code:

---

=DATUM(RECHTS(A1;4);VERGLEICH(KLEIN(TEIL(A1;FINDEN("/";A1;1)+1;LÄNGE(A1)-FINDEN("/";A1;1)-5));{"jan";"feb";"mar";"apr";"may";"jun";"jul";"aug";"sep";"oct";"nov";"dec"};0);LIN KS(A1;2))

---

ODER beim Jahr noch 'ne +100 reinmogeln [RECHTS(A1;2)+100]. Nicht schön, aber tut.
HTH

[Diese Nachricht wurde von ..... am 20. Mrz. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

als Formel:

Code:

---

=DATUM(RECHTS(A1;4);VERGLEICH(TEIL(A1;FINDEN("/";A1;1)+1;FINDEN("/";A1;FINDEN("/";A1;1)+1)-(FINDEN("/";A1;1)+1));{"jan";"feb";"mar";"apr";"may";"jun";"jul";"aug";"sep" ;"oct";    "nov";"dec"};0);TEIL(A1;1;FINDEN("/";A1;1)-1))

---

Aber! Den betreffenden Bereich markieren und Suchen "mar" Ersetzen "Mrz" sollte das Problem auch beheben - getestet mit XL2007. Ist IMHO sinnvoller 
dito mit may, oct und dec ;-)

Edit: ;-) 5Punkt, deine Formel war noch nicht da, als ich mir vorgenommen habe die umzubauen^^

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo!
Vielen Dank! Die Lösung mit dem Suchen/Ersetzen ist wirklich einfach. Da braucht man kein VBA Wissen. Warum bin ich nicht selbst draufgekommen?
lg
Larissa

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP