HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Zum Forum Zum Forum Zum Forumthread Zum Forumthread Zum Archivthread Zum Archivthread Registrierung Registrierung Beispieldatei hochladen Beispieldatei hochladen
Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Case
26.02.2026 18:39:42
Der Fehler kommt...
Moin, :-)

... daher, dass ich in der Funktion fnJSON pauschal "Record.FieldNames([Value]{0})" mache. Wenn die Liste leer ist, oder "documents" nicht existiert knallt es da: ;-)
Fehler in der Abfrage 'fnJSON'. Expression.Error: Der Vorgang konnte nicht abgeschlossen werden, da die Enumeration nicht genügend Elemente enthielt. Details: [List]

Um das zu umgehen prüfen wir vorher. Also tausche/überschreibe den kompletten M-Code in der Funktion fnJSON mit diesem hier: ;-) 

let

    Quelle = (Datei as binary) =>

let

    Quelle = Json.Document(Datei),

    ID = Quelle[id],

    Alles = Record.ToTable(Quelle),

    NurStrukturen = Table.SelectRows(Alles, each Value.Is([Value], type list) or Value.Is([Value], type record)),

    Transform =  Table.AddColumn(NurStrukturen, "Data", each if Value.Is([Value], type record) then Table.AddColumn( Record.ToTable([Value]), "ID", each ID) else

    if [Value] = null or List.Count([Value]) = 0 then

        #table({}, {})

    else

        Table.AddColumn(

            Table.ExpandRecordColumn(

                Table.FromList(

                    [Value],

                    Splitter.SplitByNothing()

                ),

                "Column1",

                Record.FieldNames([Value]{0})

            ),

            "ID",

            each ID

        ))

in

    Transform

in

    Quelle

Das ist eben getestet - und funktioniert mit deiner Beispiel-JSON. ;-)

Servus
Case
Beim Antworter bedanken Als gefällt mir melden Als hervorragend melden
Als Antwort auf diesen Beitrag
Heiko34
26.02.2026 17:34:07
AW: Wenn du die Dateien...
Hallo Case,

super! Das auf der Tastatur STRG+ALT+F5 drücken war der wichtige Hinweis. Ich habe es immer nur mit F5 probiert.

Grundsätzlich funktioniert es. Es hat sich jedoch herausgestellt, dass es json Dateien gibt, in denen z. B. keine documets ("documents": [],) vorhanden sind. Excel stopt dann und meldet: [Expression.Error] Der Vorgang konnte nicht abgeschlossen werden, da die Enumeration nicht genügend Elemente enthielt.

Kannst Du da noch etwas machen?
Hier ein Beispiel:

https://www.herber.de/bbs/user/180342.zip

Gruß Heiko
Folgenachrichten
Zum Forumthread
Antwort auf Beitrag erstellen
Beispieldatei hochladen