habe folgendes Problem. Folgende Subroutine bring mir bei "TrailingMinusNumbers:=True" immer den Fehler "Benanntes Argument nicht gefunden". Unter meinem alten Login hat es immer funktioniert. Seit dem ich aber ein neues Profil habe geht nichts mehr.
Danke fuer Euere Hilfe
Sub Import()
ChDir "C:\TEMP"
Workbooks.OpenText Filename:="C:\TEMP\fzgber.txt", Origin:=437, StartRow _
:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(7, 1), Array( _
39, 1), Array(46, 1), Array(78, 1), Array(83, 1), Array(93, 1), Array(105, 1), Array(117, 1) _
, Array(123, 1), Array(127, 1), Array(132, 1), Array(144, 2)), TrailingMinusNumbers:=True
Workbooks("fzgber.txt").Activate
Datum = Right(Cells(14, 1).Value, 2) & "\"
Datum = Datum & Right(Left(Cells(14, 2).Value, 3), 2) & "\"
Datum = Datum & Right(Cells(14, 2).Value, 4)
Datum = CDate(Datum)
'MsgBox Datum
'MsgBox (IsDate(Datum))
VIN = Right(Cells(6, 2).Value, 7)
'MsgBox VIN
i = 20
Do While Not i = 200
Workbooks("fzgber.txt").Activate
If Cells(i, 1).Value = "dl-no" Then
k = 0
Do While Not Cells(i + k + 1, 1).Value = ""
k = k + 1
Loop
If k <> 0 Then
Range(Cells(i + 1, 1), Cells(i + k, 13)).Select
Selection.Copy
Workbooks("JDPower_Audit.xls").Worksheets("Data").Activate
Rownum = Cells(1, 1).Value
Cells(Rownum, 4).Activate
ActiveSheet.Paste
Cells(1, 1).Value = Rownum + k
For h = 0 To k - 1
z = Rownum + h
Cells(z, 1).Value = Datum
Cells(z, 2).Value = "ET37"
Cells(z, 3).Value = VIN
Cells(z, 16) = "'" & Cells(z, 16)
Cells(z, 19).Value = "=TRIM(E" & z & ")"
Cells(z, 19).Copy
Cells(z, 5).PasteSpecial (xlPasteValues)
Next h
End If
End If
i = i + 1
Loop
Workbooks("fzgber.txt").Close SaveChanges:=False
End Sub