Excel 2016 Laufzeitfehler 9

Diskutiere Excel 2016 Laufzeitfehler 9 im Office Forum im Bereich Microsoft Community Fragen; Hallo! Ich hab zwei identische CSV-Dateien die ich einlese und jeweils den erste und letzten Wert einer Spalte ausgebe. Die beiden CSV-Dateien...
M

MSCom

Neuer Benutzer
Threadstarter
Mitglied seit
20.09.2016
Beiträge
1
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).End(xlUp))
FName = r.Value
If Not Dict.Exists(FName) 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 = Mid(FName, InStrRev(FName, "\") + 1)
If Not Dict.Exists(Part) Then NewFiles.Add FName
Next

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

'Ausgabe vorbereiten
ReDim Data(1 To .FoundFiles.Count, 1 To 3)

For Each FName In .FoundFiles
'Dateiname speichern
i = i + 1
Data(i, 1) = Mid(FName, InStrRev(FName, "\") + 1)

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


'Das ist der Part bei dem ich den Laufzeitfehler bekomme

Part = Split(Lines(1), ";")
If UBound(Part) < 2 Then
Data(i, 2) = "-"
Else
Data(i, 2) = Part(6)
End If
'Letzter Wert in 3ter Spalte
Part = Split(Lines(UBound(Lines)), ";")
If UBound(Part) < 2 Then
Data(i, 3) = "-"
Else
Data(i, 3) = Part(6)
End If
Next



End With
'Ausgeben
Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(Data), UBound(Data, 2)).Value = Data

End Sub


LG
 
#
Schau dir mal diesen Ratgeber an. Dort wird jeder fündig!
Registrieren bzw. einloggen, um diese und auch andere Anzeigen zu deaktivieren
Thema:

Excel 2016 Laufzeitfehler 9

Sucheingaben

free casino slot

,

immokalee casino

,

immokalee ca%sino

,
poker helper
, biggest casirno in the world, real poker, real popker, online casino games, us poker sites, how to win at casino, who won the world series of poker, treasure chest casino, poker texas holdem hands, bad poke%r face, bad poker face, play poker online for money, play )poker online for money, casino classic, causino classic, tournament poker edge, tournament pokeHr edge, hot shot casino slots, different poker games, different poBker games, free online casinos

Excel 2016 Laufzeitfehler 9 - Ähnliche Themen

  • Excel 2016 übernimmt Druckertreiber Wechsel nicht

    Excel 2016 übernimmt Druckertreiber Wechsel nicht: Guten Tag Ist Zustand: Auf einem Windows 10 mit Office 2016 Professional plus sind via Druckserver (MS 2012 R2) mehrere freigegebene...
  • EXCEL 2016 Langsam und Öffnet manche Dateien nicht.

    EXCEL 2016 Langsam und Öffnet manche Dateien nicht.: Hallo Leute Bitte Bitte Bitte Helft mir. Ich habe Keine nerven mehr ich bin bereit den Hammer zu nehmen und den PC mit EXCEL zu zerstören. 1...
  • Excel 2016 und Bildschirmlupe

    Excel 2016 und Bildschirmlupe: Schönen guten Tag, Excel 2016 stürzt ab, wenn die Bildschirmlupe verwendet wird und eine Eingabe in die aktive Zelle vorgenommen wird. Fehler...
  • Laufzeitfehler 12 Typen unverträglich Excel 2016

    Laufzeitfehler 12 Typen unverträglich Excel 2016: Guten Tag zusammen, ich habe ein Digitales Druck-Messgerät und kann nun seit der Umstellung meine Daten nicht mehr in einer Speziellen Excel...
  • Excel 2016 - Laufzeitfehler 32809

    Excel 2016 - Laufzeitfehler 32809: Hallo zusammen, bei Zugriff eines Makros (gespeichert in einer xlam-Datei) auf das aktuelle Tabellenblatt erhalte ich den Laufzeitfehler 32809...
  • Ähnliche Themen

    • Excel 2016 übernimmt Druckertreiber Wechsel nicht

      Excel 2016 übernimmt Druckertreiber Wechsel nicht: Guten Tag Ist Zustand: Auf einem Windows 10 mit Office 2016 Professional plus sind via Druckserver (MS 2012 R2) mehrere freigegebene...
    • EXCEL 2016 Langsam und Öffnet manche Dateien nicht.

      EXCEL 2016 Langsam und Öffnet manche Dateien nicht.: Hallo Leute Bitte Bitte Bitte Helft mir. Ich habe Keine nerven mehr ich bin bereit den Hammer zu nehmen und den PC mit EXCEL zu zerstören. 1...
    • Excel 2016 und Bildschirmlupe

      Excel 2016 und Bildschirmlupe: Schönen guten Tag, Excel 2016 stürzt ab, wenn die Bildschirmlupe verwendet wird und eine Eingabe in die aktive Zelle vorgenommen wird. Fehler...
    • Laufzeitfehler 12 Typen unverträglich Excel 2016

      Laufzeitfehler 12 Typen unverträglich Excel 2016: Guten Tag zusammen, ich habe ein Digitales Druck-Messgerät und kann nun seit der Umstellung meine Daten nicht mehr in einer Speziellen Excel...
    • Excel 2016 - Laufzeitfehler 32809

      Excel 2016 - Laufzeitfehler 32809: Hallo zusammen, bei Zugriff eines Makros (gespeichert in einer xlam-Datei) auf das aktuelle Tabellenblatt erhalte ich den Laufzeitfehler 32809...
    Oben