Forumbeitrag
Excel-Version des Fragestellers:
365 privat
Erfahrungslevel des Fragestellers:
Basiskenntnisse in VBA
Christian
14.07.2026 15:55:29
AW: Wenn man im...
Hallo Case,
mir steht die Importtext Funktion leider nicht zur Verfügung. Aber trotzdem danke für das Beispiel. Wie ja bereits gesagt, ich hatte mich für eine deiner beiden VBA Varianten entschieden.
Gruß
Christian
mir steht die Importtext Funktion leider nicht zur Verfügung. Aber trotzdem danke für das Beispiel. Wie ja bereits gesagt, ich hatte mich für eine deiner beiden VBA Varianten entschieden.
Gruß
Christian
Als Antwort auf diesen Beitrag
Case
14.07.2026 15:51:39
Wenn man im...
Moin Christian, :-)
... "Insider-Kanal" ist, dann hat man die Funktion "IMPORTTEXT": ;-)
https://support.microsoft.com/de-de/excel/functions/importtext-function
Damit kann man eine CSV-Datei schnell auslesen: ;-)
Ich habe - für diesen Test - die Dateinamen (ohne Pfad und Dateiendung) in einer anderen Tabelle ab A2 stehen. ;-)
Die 3 Zeilen (A4:A6) habe ich mit VBA generiert: ;-)
Formel eingetragen und gleich in Werte umgewandelt. ;-)
Es ist mir nicht gelungen, das per Formel (also spillen nach rechts UND unten) hinzubekommen. ;-)
Mit MAP und LAMBDA probiert, aber IMPORTTEXT sträubt sich in der Arrayverarbeitung. ;-)
Vom Grundsatz her würde ich das aber mit Power Query lösen. Per VBA ist es mit "Open PfadUndDatei For Binary As #1" und Array möglich. Das dürfte auch sehr schnell sein. ;-)
Servus
Case
... "Insider-Kanal" ist, dann hat man die Funktion "IMPORTTEXT": ;-)
https://support.microsoft.com/de-de/excel/functions/importtext-function
Damit kann man eine CSV-Datei schnell auslesen: ;-)
Ich habe - für diesen Test - die Dateinamen (ohne Pfad und Dateiendung) in einer anderen Tabelle ab A2 stehen. ;-)
Die 3 Zeilen (A4:A6) habe ich mit VBA generiert: ;-)
Option Explicit
Public Sub Main()
[A4:A6].Formula2 = "=HSTACK(Tabelle2!A2,TRANSPOSE(CHOOSECOLS(IMPORTTEXT(""C:\Temp\CSVDateien\""&Tabelle2!A2&"".csv"","";"",1,52),2)))"
[A4].SpillingToRange.Value = [A4].SpillingToRange.Value
End SubFormel eingetragen und gleich in Werte umgewandelt. ;-)
Es ist mir nicht gelungen, das per Formel (also spillen nach rechts UND unten) hinzubekommen. ;-)
Mit MAP und LAMBDA probiert, aber IMPORTTEXT sträubt sich in der Arrayverarbeitung. ;-)
Vom Grundsatz her würde ich das aber mit Power Query lösen. Per VBA ist es mit "Open PfadUndDatei For Binary As #1" und Array möglich. Das dürfte auch sehr schnell sein. ;-)
Servus
Case
Folgenachrichten
Antwort auf Beitrag erstellen