Excel 2016 Laufzeitfehler 9

Diskutiere und helfe bei Excel 2016 Laufzeitfehler 9 im Bereich Microsoft Office im Windows Info bei einer Lösung; Hallo! Ich hab zwei identische CSV-Dateien die ich einlese und jeweils den erste und letzten Wert einer Spalte ausgebe. Die beiden CSV-Dateien... Dieses Thema im Forum "Microsoft Office" wurde erstellt von DominikLinauer, 25. Februar 2020.

  1. 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
     
  2. Andreas Killer Win User

    Excel 2016 Laufzeitfehler 9

    Schau Dir das Array im Debugger an, alles andere ist Kaffeesatz lesen.

    Evt. hat die CSV ein anderes Zeilenende anstatt CrLf...

    Andreas.
  3. DominikLinauer Win User

    Excel 2016 Laufzeitfehler 9

    Hallo!

    Danke für die rasche Antwort aber ganz klar ist mir das Problem noch nicht.

    Es sind beide CSV's mit Daten gefüllt.

    Es haben beide die gleichen Trennzeichen etc.

    Deswegen ist mir das Problem noch nicht ganz schlüssig.

    LG
  4. Andreas Killer Win User

    Excel 2016 Laufzeitfehler 9

    Der Laufzeitfehler sagt alles... hast Du schon mal den Debugger benutzt?

    Lass den Code mal laufen bis der Fehler kommt.

    Dann markierst Du das Wort Lines im Code und drückst SHIFT-F9 und klickst auf Hinzufügen.

    Im Überwachungsfenster siehst Du nun Deine Variable und mit einem Klick auf das + kannst Du Dir den Inhalt von Lines ankucken.

    Das Array Lines wird ganz einfach nicht mehr als ein Feld haben => Lines(0 to 0) und daher der RTE 9 wenn Du auf Lines(1) zugreifst.

    Ergo wenn UBound(Lines) < 1 dann ist in der CSV nix drin und eine Ausgabe entfällt. Alles klar?

    Andreas.
  5. Daddy8387 Win User

    Dateimanagerinhalt kopieren

    Hi,

    ich bekomme jetzt leider angezeigt:

    Laufzeitfehler 9

    Objektvariable oder With-Blockvariable nicht festgelegt

    mache ich etwas falsch, oder warum funktioniert das nicht?
  6. Nik_HH Win User

    Excel 2013 Spalten in Zeilen kopieren

    Hallo,

    Danke für die schnelle Antwort.

    Wenn ich das Makro ausführen will, geht ein Fenster auf in dem steht:

    "Laufzeitfehler '9': Index außerhalb des gültigen Bereichs"

    Was kann ich dagegen tun?

    MfG
  7. User Advert


    Hi,

    willkommen im Windows Forum!
Thema:

Excel 2016 Laufzeitfehler 9 - Microsoft Office

Die Seite wird geladen...

Excel 2016 Laufzeitfehler 9 - Similar Threads - Excel 2016 Laufzeitfehler

Forum Datum

laufzeitfehler 50290

laufzeitfehler 50290: Hallöchen Ab und zu erscheint die Fehlermeldung Laufzeitfehler '50290' Die Methode 'Activate' für das Objekt '_workbook' ist fehlgeschlagen bei der Ausführung von...
Microsoft Office 2. Januar 2020

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 Datei sichtbar machen. Ich benötige diese Daten für...
Microsoft Office 18. Oktober 2018

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. Dies passiert bei Excel 2016 und unter Windows 10....
Microsoft Office 2. Mai 2018

Laufzeitfehler 438

Laufzeitfehler 438: Hallo zusammen Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern. Die einzelnen Blätter sind Geschützt. Um die Gruppierungen anzuzeigen, habe ich folgenden Makro verwendet: Sub...
Microsoft Office 12. November 2017

Excel Laufzeitfehler '-2147417848 (80010108)'

Excel Laufzeitfehler '-2147417848 (80010108)': Nach Update auf Version 1703 (Build 7967.2139) bringt Excel beim Aufruf eines VBA-Makros folgende Fehlermeldung: Microsoft Visual Basic Laufzeitfehler '-2147417848 (80010108)':...
Microsoft Office 1. Mai 2017

Laufzeitfehler ´28´:

Laufzeitfehler ´28´:: Hallo, ich habe eine Excel Tabelle von der Arbeit die dort ohne Probleme läuft, ich habe mir die Datei jetzt mit nach hause genommen, da ich dort noch weiter dran Arbeiten wollte. Jetzt...
Microsoft Office 19. Februar 2017

laufzeitfehler 3709

laufzeitfehler 3709: hallo Community Mein Programm spinnt auf einmal bei ".Update" rsj.Edit rsj.Fields("Parkplsum") = 0 rsj.Fields("pachtfläche") = 0 rsj.Fields("Pacht") = 0 rsj.Fields("Stadtverbandsbeiträge") = 0...
Microsoft Office 18. Januar 2017
Excel 2016 Laufzeitfehler 9 solved
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.