ich habe das Problem, das beim Import einer Text-Datei das Datumsformat für die Monate März, Mai, Oktober und Dezember nicht korrekt gesetzt werden.
Die Datei wird mittels eines VBA-Scripts eingelesen und dann formatiert. (script hierzu siehe unten).
Die einzulesende Datei wurde vorher durch Macros generiert.
Ich hab schon alles mögliche ausprobiert, komme aber auf keinen grünen Zweig.
Vermutlich ist es irgendeine Kleinigkeit, die ich übersehen habe ... aber wie war das mit dem Wald und den Bäumen? So ähnlich geht es mir.
Über einen entsprechenden Tip würde ich mich freuen.
Gruß
SamGambschie
************************
Anhänge:
Bsp. für eine einzulesende Datei: (1.Zeile enthält die Spaltenüberschriften)
ALIAS#USER-ID#LAST LOGON#LAST MODIFY#STATUS
Mustermann1#150,2#1MÄR05,5:00#15JAN99#THAWED
Mustermann2#150,2#14OKT05,6:36#29MÄR99#THAWED
Mustermann3#150,2#14MAI05,7:29#29MÄR99#THAWED
Mustermann4#150,20#13DEZ05,16:00#24NOV03#THAWED
Mustermann5#150,20#8JUN05,12:04#28JAN99#THAWED
Mustermann6#212,18#5JAN05,7:35#22OKT04#THAWED
Mustermann7#216,12#31AUG05,12:39#7DEZ04#THAWED
*************
Script(e):
Sub Aliasliste_erstellen()
ChDir "x:\Auswertungen"
Workbooks.OpenText Filename:= _
"x:\Auswertungen\Aliaslist_ADS01.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="#", FieldInfo:=Array(Array(1, 1 _
), Array(2, 2), Array(3, 2), Array(4, 1), Array(5, 1))
Application.Run "PERSONL.XLS!Datum_Engl_Deutsch_Aliasliste"
End Sub
Sub Datum_Engl_Deutsch_Aliasliste()
Columns("D:E").Select
Selection.Cut Destination:=Columns("E:F")
Range("C1:C500").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 4), Array(2, 1))
Range("C1:D1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Range("A1:F1").Select
Selection.AutoFilter
End Sub