Office: (Office 2019) Eine Datei mit der Endung .geojson in Excel umwandeln

... und hier positionsunabhängig.

 

PQ dynamisch. Hier musst Du Dich nicht mehr um die Überschriftenanzahl oder Namen kümmern.
Lediglich in der Abfrage Daten den Quellpfad anpassen.
Passt natürlich nur für Dateien, die die gleiche Struktur haben, wie Deine geodatendatei.
speed wird auch in km/h geändert...

Da die Quelldatei aber unsauber erstellt wurde (bei einigen Datensätzen wurde einfach ein Komma für die speed- oder bearing-Spalte vergessen), kann es vorkommen, dass die ab da nachfolgenden Werte in der falschen Spalte stehen. Ist aber nicht weiter schlimm, da die tatsächliche Eigenschaft noch vor dem Wert zu identifizieren ist.

 

Hallo,

da fehlt nur noch Split als Text um die Koordinaten zu trennen. Diese Ausgabe wäre dann auch ohne Gleitkommaproblematik, Ziffernbegrenzung und Punkt in der Koordinate, da Textzahl.
Ich habe einfach mal deinen letzten Schritt der Pipeline dazu umgebaut.

Code:

let
    Quelle = Daten,
    Nur_leq = Table.SelectRows(Quelle,each Text.StartsWith([Column1], "leq_mean")),
    Splitten = Table.SplitColumn(Nur_leq, "Column1", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), Überschriften[Spaltenname]),
    AddIndex = Table.AddIndexColumn(Splitten, "Index", 0, 1, Int64.Type),
    AddKoordin = Table.AddColumn(AddIndex,"Koordinaten", each Koordinaten[Koordinaten]{[Index]},type text),
    tList = {"Koordinaten"} & Überschriften[Spaltenname],
    Reorder = Table.ReorderColumns(AddKoordin,tList),
    EntfernteIndex = Table.RemoveColumns(Reorder,{"Index"}),
    SplitKoordinaten =Table.SplitColumn(EntfernteIndex,"Koordinaten",Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv),{"Lng", "Lat", "Alt"}),
    OhneAlt =Table.RemoveColumns(SplitKoordinaten,{"Alt"}),
    Ausgabe =Table.ReorderColumns(OhneAlt,{"Lng", "Lat"} & Überschriften[Spaltenname])
in
    Ausgabe

Das kann man mit Sicherheit noch optimieren.

Gruß Uwe