Datum aus Text Datei nach Excel importieren ...
24.07.2008 16:17:15
Falk
Ich habe eine Textdatei, die ich nach Excel importiere. In dieser Datei gibt es eine Spalte K in der Datumsangaben stehen TT.MM.JJ unten steht die gesamte Funktion. Mein Problem ist, daß die Selektion der Spalte K nach einem bestimmten Datum nicht funktioniert, da die Spalte nicht als Datum formatiert ist sondern als Text. Auch ein umformatieren mit
Columns("K:K").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("K1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
Selection.NumberFormat = "d/m/yy;@"
funktioniert aber auch nicht ...
Hmm ... kann mir einer helfen.
Grüße
Falk
Function Gelöscht_einfügen()
pstart = Worksheets("Parameter").Range("D8")
Workbooks.OpenText Filename:= _
"X:\APC Reporting\Baan Basis Daten\WSRKWGelöscht.txt", Origin:=xlWindows, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10 _
, 1), Array(11, 1), Array(12, 4), Array(13, 1)), DecimalSeparator:=".", _
ThousandsSeparator:=",", TrailingMinusNumbers:=True
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("WSR KW PRG.xls").Activate
Sheets("Gelöscht").Select
ActiveSheet.Paste
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Font.Bold = True
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFilter
Columns("I:I").Select
Selection.TextToColumns Destination:=Range("I1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Selection.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "
Columns("K:K").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("K1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
Selection.NumberFormat = "d/m/yy;@"
Selection.AutoFilter Field:=11, Criteria1:="