Hallo Zusammen, Hallo Rolf,
mir wurde bei folgendem Thread geholfen um ein Makro anzuwenden das prüft ob ein Datum oder Text in einer Zelle ist und daraus, wenn es nicht schon der Fall ist, ein Datum baut:
https://www.herber.de/forum/cgi-bin/callthread.pl?index=1845610#1845870
Hier mit dem Code:
Columns("I:I").Select
Selection.TextToColumns Destination:=Range("I1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
Dieser Code funktioniert, es gibt dabei wohl nur ein Problem: Es wird jetzt, wenn das Datum vorher der 2.8.2021 war daraus der 8.2.2021 gemacht.
Bei 28.12.2021 spielt das keine Rolle, bei allen anderen Kombinationen jedoch schon.
Kann mir hier nochmal jemand (Rolf?) helfen das so zu modifizieren dass die Datumsangaben auch so in der richtigen Reihenfolge bleiben?
Danke für Eure Hilfe,
Chris