Clever-Excel-Forum

Normale Version: Text in spalte trennt falsch - wo liegt der Fehler?
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2
(21.05.2018, 10:03)RPP63 schrieb: [ -> ](Warum ihn MS allerdings seit neuem so gut versteckt hat, wissen wohl nur die Redmonder)
Das ist doch klar: Man soll Power Query nehmen und nicht die alten Import-Assistenten die seit Anno Tobak auch nicht mehr aktualisiert wurden.
Dann erkläre mir doch bitte, wie Du mit PQ die Decimal- und ThousandsSeparators umstellst.
(zumindest schneller als mit dem uralten Legacy-Assi)
Nach etlichen Klicks (zunächst: Datentyp nicht erkennen) erhalte ich:
(und ja, vieeeel länger dauert es auch nicht wirklich)
Code:
let
    Quelle = Csv.Document(File.Contents("C:\Users\RPers\Desktop\Zahl.csv"),[Delimiter=",", Columns=2, Encoding=1252, QuoteStyle=QuoteStyle.None]),
    #"Typ ändern" = Table.TransformColumnTypes(Quelle,{{"Column1", type text}, {"Column2", type text}}),
    #"Ersetzter Wert" = Table.ReplaceValue(#"Typ ändern",".",",",Replacer.ReplaceText,{"Column1", "Column2"}),
    #"Geänderter Typ" = Table.TransformColumnTypes(#"Ersetzter Wert",{{"Column1", type number}, {"Column2", type number}})
in
    #"Geänderter Typ"

Und wirklich:
Die Art, wie OO/LO mit der Materie umgeht, finde ich smart.

Gruß Ralf
Hast du versucht ?


Code:
Sub M_snb()
  sheets.add ,sheets(sheets.count),,"G:\OF\Q_test.csv"
End Sub
@snb:
Nicht schlecht, Herr Specht!
(german for thumps up!)
Jetzt muss ich nur noch verstehen, warum Excel die Trennzeichen hier lokalisieren kann!

Gruß Ralf
Hi Ralf,

(21.05.2018, 12:35)RPP63 schrieb: [ -> ]Jetzt muss ich nur noch verstehen, warum Excel die Trennzeichen hier lokalisieren kann!

kann es nicht, aber VBA verhält sich amerikanisch?

Gruß Uwe
Kann auch so:


Code:
Sub M_snb()
   Workbooks.Open "G:\Q_test.csv", , , , , , , , , , , , , -1
End Sub

oder

Code:
Sub M_snb()
   Workbooks.Open "G:\Q_test.csv", local:=true
End Sub
Seiten: 1 2