Datum umwandeln mit TextInSpalten VBA wirkungslos

Hallo Herber Fans,
in Datenbankauszügen habe ich ab und an Datumsangaben drin, welche dann jedoch nicht korrekt als Datumswert in Excel übertragen werden. Erkennbar daran, dass diese im Autofilter Dropdown als 01.01.1980 erscheinen und nicht in der strukturellen Unterscheidung nach Jahr, Monat, Tag. Um diese automatisch über VBA zu ändern wollte ich zwei Verfahren, mit denen es manuell funktioniert, über VBA einsetzen.
1 Multiplikation mit dem Wert 1 aus der Zwischenablage
2 Text in Spalten, ohne angegebenes Trennzeichen oder dergleichen
Manuell liefern beide Verfahren korrekte Ergebnisse. Aber der Code mit dem Makrorekorder eins zu eins aufgezeichnet bleibt wirkungslos.
Habe ich einen Denkfehler oder sind diese Excelfunktionen von MS nicht korrekt in VBA abgebildet worden?
https://www.herber.de/bbs/user/125030.xlsm
In der beigefügten Datei habe ich in Modul 1 beide VBA Versionen der o.g. Verfahren
zum Testen hinterlegt.
Zur prinzipiellen Frage der Umwandlung: Wenn es en bloc nicht geht, dann würde ich alle Zellen einzeln loopen müssen. Das bekomme ich hin, aber es kostet gerade in ListObjects unangenehm Laufzeit.
Vielen Dank für Eure Rückmeldungen zu diesem Thema.
Beste Grüsse aus Berlin, Andreas Hanisch

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Range("A4:A26") .TextToColumns Destination:=Range("A4"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, _ FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True End With

Hallo Daniel, lieber Luc :-?
Ihr seid genial!
Aber der Reihe nach.
Der Unterschied, wie von Luc :-? gefragt, besteht in dem 'FieldInfo:=Array(1, 4)', welches in meinem Code auf (1,1) lautete. Aber das war tatsächlich die Originalaufzeichnung des Codes. Warum? Weil ich bis dato kaum, vielleicht sogar nie bis in den dritten Schritt des TextInSpalten Dialoges ging! Da mal weiter zu gehen, darauf hat mich Daniel gebracht. Und siehe da, den Code einmal mit der Option 'Datum mit TMJ' aufgezeichnet und schon lautet das Array auf (1,4) UND liefert bei Ausführung über VBA das gewünschte Ergebnis!
Das muss ich erstmal sacken lassen Ich muss mir mal den dritten Schritt des TextinSpalten genauer ansehen und die Beschreibung von Microsoft durchlesen.
Ich habe es auch mal auf das absolute Minimum eingedampft:
With Selection: .TextToColumns Destination:=.Cells(1, 1), DataType:=xlDelimited, FieldInfo:=Array(1, 4): End With
Ersten Tests zufolge werden damit Zahlen zu Zahlen und Datum zu Datum. Und dies ganz ohne Schleife oder Multiplikation mit 1 Eine Zeile; stringent, kompakt, schnell, schön! Eure Rückmeldung hat gerockt!
Vielen, vielen Dank Euch Beiden für die Lösung und den Erkenntnisgewinn!
Beste Grüße aus Berlin, Andreas Hanisch

Beliebteste Forumthreads (12 Monate)

Datum umwandeln mit TextInSpalten VBA wirkungslos

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

398 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datum umwandeln mit TextInSpalten VBA wirkungslos

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

398 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread