Clever-Excel-Forum

Seiten: 1 2

Hallo zusammen,
das improtieren einer TXT datei bekomme Ich hin das stellt nicht das Problem dar.

Meine Frage wäre ist es möglich:

ca 30 TXT Dateien auf einmal zu importieren
aus den einzelnen TXT Dateien sollen folgende Spalten wie folgt übernommen werden
Spalte a = Datum, Spalte B +C+D+G+H als Text und alle anderen Spalten sollten gelöscht werden.
Was auch noch Toll wäre wenn die Überschriften ergänzt werden könnten ( TAB 20240315 gelb hinterlegt)

Habe mir hier schon ein paar Beispiele angeschaut jedoch nichts vergleichbares gefunden.
habe unten eine Musterdatei angehängt.
Im TAB 20240315 ist der Endzustand den Ich erreichen möchte, im TAB Test 1 sind die Rohdaten. KAnn die Text Datei nicht hochladen ????

wird nicht so einfach gehen,

trotzdem vorab an alle die sich bemühen das ganze zu verstehen ein großes Dankeschön

Informationen zu Power Query in Excel - Microsoft-Support

DAnke für den Hinweiß,
ich möchte jedoch jede Text DAtei einzeln in einem TAb in einer Excel Mappe haben geht das auch mit Query. Habe noch nie damit gearbeitet.

(07.04.2024, 07:59)wavemaster schrieb: [ -> ]ich möchte jedoch jede Text DAtei einzeln in einem TAb in einer Excel Mappe haben

Warum?

Zitat:ich möchte jedoch jede Text DAtei einzeln in einem TAb in einer Excel Mappe haben geht das auch mit Query. Habe noch nie damit gearbeitet.

Hi,

geht. Speichere Deine txt Datei als zip, dann kannst Du sie hier auch hochladen.

Hallo,

hier ein Code von snb:

Code:
Sub M_snb()

  With Application.FileDialog(1)

    If .Show Then ThisWorkbook.Sheets.Add , ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count), , .SelectedItems(1)

  End With

End Sub

mfg

Danke Fennek,
also der VBA Code funktioniert super. Es kann jedoch nur eine TXT Datei abgerufen werden.

Und nur alle Daten also nicht selektiert.

Hilft mir im ersten Moment jedoch optimal, viel weniger geklicke.

Danke

Hallo Ralf anbei die zip

Hallo shift del,
hier handelt es sich um Daten der Heizug. Also Temperaturen mit Datum und Uhrzeit , daher jede TXT Datei als extra TAB in einer Mappe.

Habe die zip hochgeladen.

Der VBA Code von Fennek funktioniert soweit. Ist dieser mit meinen Fragen ausbaufähig?

(07.04.2024, 10:19)wavemaster schrieb: [ -> ]hier handelt es sich um Daten der Heizug. Also Temperaturen mit Datum und Uhrzeit , daher jede TXT Datei als extra TAB in einer Mappe.

Tolle Erklärung.
Jede Datei in ein eigenes Blatt, weil sie Zeitstempel und Temperaturwerte enthält.

Hallo shift del,
soll das sarkastisch gemeint sein.
Die Tagesauswertung hat 1441 Zeilen. und es gibt für jeden Tag ein solches Blatt.
Daher eine Ansicht pro Tag in einem Tab.

Etwas selbst recherchieren:

Code:
Sub M_snb()

  With Application.FileDialog(1)

    .multiselect = True

    If .Show Then 

      for j = 1 to .selecteditems.count 

        ThisWorkbook.Sheets.Add , ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count), , .SelectedItems(j)

      next

    end if

  End With

End Sub

Seiten: 1 2

wavemaster

DeltaX

wavemaster

shift-del

Ralf A

Fennek

wavemaster

shift-del

wavemaster

snb