Datumsformat ändern

[ws-53]

...  die Tabelle in excel nehme und die Punkte durch Komma ersetzen lasse.

Warum so umständlich? Du kannst du gesamte Transformation innerhalb von Excel durchführen !!! 

Hier Der Komplette M-Code meiner Mappe.

Code:

let
    wk_file          = Excel.CurrentWorkbook(){[Name="wk_file"]}[Content]{0}[Column1],

    Source           = Csv.Document(File.Contents(wk_file),[Delimiter=",", Columns=7, Encoding=1252,  
                       QuoteStyle=QuoteStyle.None]),
  
    Promote_Hdr      = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
    Chn_type_Date_US = Table.TransformColumnTypes(Promote_Hdr, {{"Datum", type date}}, "en-US"),
    Chn_Type_Curr_US = Table.TransformColumnTypes(Chn_type_Date_US,{{"Öffnen", type number},
                       {"Höchstwert", type number},  {"Tiefstwert", type number},
                       {"Schließen", type number}, {"Volumen", type number}}, "en-US")
in
    Chn_Type_Curr_US

Wenn bei dur ein Fehler hochkommt, dann kannst du doch die Abfrage Schritt für Schritt von oben nach unten durchklicken, bis die Fehlermeldung kommt und diese dann benennnen. 

Es kann ja sein, dass das Power Query deiner Excelversion irgend etwas nicht kann, was aber bei meiner (Microsoft 365) problemlos geht.

Wenn du meine Abfrage in deine Mappe übernimmst, musst du nur das benannte Feld "wk_file" definieren und in diesem Pfad und Dateiname für den Import einstellen, da ich es parametrisiert habe.

[snb]

Warum hast du https://www.clever-excel-forum.de/Thread...#pid300423
ignoriert ?

[gitmichi]

sorry den code habe ich wirklich übersehen, das probiere ich jetzt...

---

Bei mir kommt bei deinem Code: Fehler beim Kompilieren End sub erwarted

Was heißt das

Kann der Code auch in einer csv datei laufen wie unten??

In solch einer datei kommen die Daten so an

Ich habe den Code in Modul eingefügt....

[snb]

ein Makro kann nur in einer Excel Datei laufen.
Richtig kopiieren ist notwendig.
Ergebnissie kontrollieren auch.
Der Makro enthält 13 Zeilen.

Code:

Sub M_snb()
  With ActiveSheet.QueryTables.Add("TEXT;J:\download\Historische Kursdaten von Aktien.csv", Cells(1))
    .Name = "snb"
    .FieldNames = True
    .RefreshOnFileOpen = True
    .TextFilePlatform = 65000
    .TextFileCommaDelimiter = True
    .TextFileColumnDataTypes = Array(3, 1, 1, 1, 1, 1, 1)
    .TextFileDecimalSeparator = "."
    .Refresh
  End With
   
  Cells(1).CurrentRegion.Sort Cells(1), , , , , , , 1
End Sub

[gitmichi]

Hier mal die Datei  mit deinem makro der blauen schlatfläche zugewiesen.

Da passiert bei mir nichts, das Format der Datei ist jedoch richtig

[snb]

Fang mal bitte erst mal mit VBA Grundlagen an.

[gitmichi]

hab ne andere Lösung gefunden, ohne VBA

Gruß