Also die Textdatei wird so importiert:
ChDir "X:\"
Workbooks.OpenText Filename:="X:\Täglich.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, 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, 1))
Nun erfolgt das Abprüfen:
Sheets("Täglich").Activate
Dim Zelle As Range
Set Zelle = Sheets("Täglich").Columns(12).Find(Date)
If Not Zelle Is Nothing Then
Excel müsste das beim Import doch als Datum deuten (ist in dieser Form: 09.03.2005).
Vorher hatte das ja auch geklappt.
Bin irgendwie echt ratlos.