Excel 2016 Laufzeitfehler 9

Hallo!


Ich hab zwei identische CSV-Dateien die ich einlese und jeweils den erste und letzten Wert einer Spalte ausgebe.

Die beiden CSV-Dateien unterscheiden sich lediglich im Namen und eine CSV hat eine Spalte mehr.

CSV A funktioniert ohne Probleme

Bei CSV B bekomm ich den Error "Laufzeitfehler 9".

Wenn ich aber den Inhalt, ohne Überschrift, von B nach A kopiere funktioniert diese auch.

Der Dateiname ist auch irrelevant.

Hoffe einer hat eine Idee.


Code:


Sub Update
Dim FS As New FileSearch
Dim ff As Integer
Dim Contents As String
Dim FName, Data, Lines, Part
Dim i As Long
Dim Dict As Object 'Scripting.Dictionary
Dim r As Range
Dim NewFiles As New Collection

Set Dict = CreateObject"Scripting.Dictionary"
Dict.CompareMode = vbTextCompare
For Each r In Range"A2", Range"A" & Rows.Count.EndxlUp
FName = r.Value
If Not Dict.ExistsFName Then Dict.Add FName, 0
Next

With FS
'Dateien suchen
.LookIn = "Dateipfad"
.FileName = "*.csv"
.SearchSubFolders = True
.Execute

If .FoundFiles.Count = 0 Then
MsgBox "Keine Dateien gefunden"
Exit Sub
End If

For Each FName In .FoundFiles
Part = MidFName, InStrRevFName, "\" + 1
If Not Dict.ExistsPart Then NewFiles.Add FName
Next

If NewFiles.Count = 0 Then
MsgBox "Keine Dateien gefunden"
Exit Sub
End If
Set .FoundFiles = NewFiles

'Ausgabe vorbereiten
ReDim Data1 To .FoundFiles.Count, 1 To 3

For Each FName In .FoundFiles
'Dateiname speichern
i = i + 1
Datai, 1 = MidFName, InStrRevFName, "\" + 1

'Datei einlesen
ff = FreeFile
Open FName For Binary Access Read Lock Write As #ff
Contents = SpaceLOFff
Get #ff, , Contents
Close #ff
'Zeilen trennen
Lines = SplitContents, vbCrLf
'Erster Wert in 3ter Spalte


'Das ist der Part bei dem ich den Laufzeitfehler bekomme

Part = SplitLines1, ";"
If UBoundPart < 2 Then
Datai, 2 = "-"
Else
Datai, 2 = Part6
End If
'Letzter Wert in 3ter Spalte
Part = SplitLinesUBoundLines, ";"
If UBoundPart < 2 Then
Datai, 3 = "-"
Else
Datai, 3 = Part6
End If
Next


End With
'Ausgeben
Range"A" & Rows.Count.EndxlUp.Offset1.ResizeUBoundData, UBoundData, 2.Value = Data

End Sub


LG