Query Table per VBA
04.06.2019 09:45:57
Georg
ich importieren csv Daten in eine leere Excel Datei (per VBA, den Code war im Netz zu finden und funktioniert).
Im Anschluss möchte ich daraus eine "echte" Tabelle machen,
(ich weiß mit STRG+t geht es ganz problemlos, aber ich bearbeitete die Datei nicht selbst, sondern stelle sie Nutzer zur Verfügung.)
Ich hab den Recorder mitlaufen lassen, aber wie kann ich das ganze dynamsich gestalten? Die csv Daten haben ja nicht immer den selben Umfang (wie im Code mit Range siehe unten - definiert)?
Vielen Dank G
Sub tabell()
' tabell Makro
Range("B7").Select
ActiveSheet.QueryTables("hier Name der Datei reinschreiben lassen").Delete
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$T$2847"), , xlYes).Name = _
"Tabelle1"
Range("Tabelle1[#All]").Select
End Sub