Office: (Office 2016) VBA Text in Spalten aber mit anderem Format in der 2. Spalte

Hallo,

ich habe folgenden Text in einer CSV-Datei:

P'Triq,@Parakema,65,Engineer,Deckhand,4803644,3/28/2020 9:24:58pm,3/28/2020 9:25:27pm,4/25/2020 6:56:39pm,"","",

Das Problem ist, dass der zweite Wert mit einem @ anfängt und Excel dann denkt, dass da eine Funktion oder Formel dahinter steckt. Bei der manuellen Verwendung von Text in Spalten muss ich dann für die 2. Spalte das Format in Text ändern. Wie bekomme ich das mit VBA hin?

Vielen Dank im voraus.

P.S.: Ich habe Excel 2016 als Präfix gewählt, tatsächlich nutze ich aber das Excel in Office 365.

:)

 

Moin,
auch in Excel 365 gibt es imho die Möglichkeit, VBA mit dem Makro-Rekorder aufzuzeichnen. Ansonsten könnte das Stichwort "TextFileColumnDataTypes" helfen.

BTW: Power Query macht das prima ohne VBA!

 

Danke für die schnelle Antwort. Den Makrorecorder vergesse ich immer.

Der Makrorecorder hat den folgenden Code gespeichert:
Code:

Das Makro starte ich in einem anderen VBA Sub über Call Roster. Doch dann bekomme ich die Fehlermeldung "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs".

Wenn ich Makro manuell ausführe funktioniert es, aber nur dann. Was mache ich falsch?

 

Hallo,

ich kann bestätigen, dass Power Query sehr gut für Textimporte geeignet ist und du dabei beliebig viele Transformations- und Filterschritte definieren kannst.

 

Danke für den Tipp mit PowerQuery. Ich möchte jedoch über VBA (konkret über das Drücken eines Buttons) eine ganze Reihe von Daten aus anderen Dateien kopieren und dann auch weiterverarbeiten.

Wenn mir also jemand erklären könnte, warum der in Post #3 stehende Code nicht funktionert, wäre das erstklassig.

 

Hallo,

du sagst in deinem Eingangspost etwas von einer CSV ... bringst aber gleichdrauf Code, der die Text-In-Spalten-Methode benutzt ...

Du hast anscheinend nicht bemerkt, dass du beide Funktionen in einer haben kannst, wenn du mit der CSV gleich über ... Daten ~~> aus Text ... gehen würdest. Auch da kannst du im letzten Schritt des Assistenten, die Formate der Spalten wählen ... und auch das kannst du dir aufzeichnen ...

Sabina

 

Danke für den Hinweis. Der o.g. Code IST die Aufzeichnung. Ich möchte jedoch nicht manuell ein Makro starten, sondern dieses im normalen VBA code integrieren. Macht VBA aber nicht. Ich setze diesen Thread auf erledigt, da mein Anliegen hier offenbar nicht gelöst werden kann.

 

... seit wann ist denn TextToColumns gleich .Query.Add ???

Hab ich igendwas verpasst ? Egal ... is OK.