Office: (Office 2010) Power Query

Hallo,

ein Experiment bei uns im Labor spuckt 1-6 Dateien mit der Endung "*.cla" aus. Je nach Anzahl der genutzten Kanäle.
Ich bin in der Lage die Messdaten per Datenimport oder auch mit PowerQuery in Excel zu importieren, jedoch nur mit einzelnen Dateien.

Wenn ich den Ordner mit allen Dateien durch Powerquery auf einmal importiere, setzt Excel die verschiedenen Kanäle in einer Tabelle lückenlos untereinander. Da jedes Experiment unterschiedlich lange dauert und somit auch eine unterschiedliche Anzahl an Zeilen erzeugt, kann ich die verschiedenen Kanäle im Anschluss nicht mehr gut per Makro oder durch Formeln voneinander trennen.

Am besten wäre es, wenn die verschiedenen Dateien/Kanäle nach der Abfrage auf mehrere Tabellenblätter oder einfach nur in Spalten nebeneinander verteilt würden.

Ich habe mal einen Screenshot von dem jetzigen Ergebnis meiner laienhaften Excelnutzung angehängt. Dort sieht man den lückenlosen Übergang von einem Kanal/Datensatz zum nächsten (Zeile 2877).

Vielleicht hat jemand eine Idee wie ich diese Problem lösen könnte. Muss auch nicht schön sein :)

 

so wie ich das verstehe ist in spalte 1 die Möglichkeit von kammer 1 und kammer 2 zu unterscheiden.
das könnte man filtern, und die gefilterten Werte per erweiterten Filter auf andere Blätter kopieren. auch eine Schleifenlösung per vba ist denkbar.

 

Schonmal danke für die Antwort.

Ich probiere das mal aus, befürchte aber, dass ich das mit meinen Kenntnissen nicht durch ein Makro voneinander trennen kann.

Die Möglichkeit bei einer Ordner-Abfrage die Dateien getrennt voneinander in Tabellenblätter zu exportieren gibt es scheinbar nicht?

 

Hallo,

ich habe dir das Makro "ArbBlaetter_Erzeugen" gebastelt, welches in ein allgemeines Codemodul zu kopieren ist.

1) Es kopiert die Sätze einer im aktiven Arbeitsblatt enthaltenen strukturierten Tabelle in Zielarbeitsblätter, wobei die Namen dieser Zielarbeitsblätter aus der 1. Spalte der Tabelle entnommen werden.
2) Existiert ein Zielarbeitsblatt nicht, wird es erzeugt und auch die darin enthaltene strukturierte Tabelle.
3) Die einzelnen Sätze werden am Ende der jeweiligen Zieltabelle angefügt.
4) Existieren einzelne Zielarbeitsblätter beim Aufrufen des Makros bereits, können damit Mehrfachübernahmen in den Zieltabellen erfolgen. Ist dies jedoch nicht gewünscht, müssen vor dem Makroaufruf die Zielblätter entfernt werden.

Code:

Option Explicit
Public Sub ArbBlaetter_Erzeugen()
   Dim WsQ As Worksheet     'Quellblatt    (=Aktives Arbeitsblatt)
   Dim lstQ As ListObject   'QuellTabelle  (=strukt.Tabelle im aktiven Arbeitsblatt)
   Dim rngQK As Range       'Kopfzeilen-Bereich der QuellTabelle
   Dim rowQ As ListRow      'Satz der QuellTabelle
  
   Dim WsZ As Worksheet     'ZielBlatt
   Dim lstZ As ListObject   'ZielTabelle
  
   Set WsQ = ActiveSheet           'Quellblatt ist aktives Blatt
   Set lstQ = WsQ.ListObjects(1)   'QuellTabelle ist die 1.Tabelle im Quellblatt
   Set rngQK = lstQ.HeaderRowRange 'Kopfzeilenbereich in der QuellTabelle
  
   On Error GoTo Err_BlattTab_Erzeugen
  
  'Durchlaufe alle Sätze der QuellTabelle
   For Each rowQ In lstQ.ListRows
      With rowQ.Range
        'Die 1.Spalte enthält den Namen des Zielblattes und auch den Namen der ZielTabelle ("Tab....")
         Set WsZ = Worksheets(.Cells(1).Value)
         Set lstZ = WsZ.ListObjects("Tab" & WsZ.Name)
        
        'Kopiere den Satz von der QuellTabelle an das Ende der ZielTabelle:
         .Copy Destination:=lstZ.ListRows.Add.Range
    
         Application.StatusBar = "Satz " & rowQ.Index
      End With
   Next rowQ
  
  'Abschlussarbeiten:
   WsQ.Activate: WsQ.Range("A1").Select
   MsgBox Replace("Alle Sätze # kopiert.", "#", lstQ.ListRows.Count)
  
   Exit Sub
  
Err_BlattTab_Erzeugen:

  'Falls Zielblatt nicht existiert, erzeuge Zielblatt und auch die enthaltene ZielTabelle:
   With Worksheets.Add(After:=Worksheets(Worksheets.Count))
     .Name = rowQ.Range.Cells(1)
  
     rngQK.Copy Destination:=.Range("A1")
     .ListObjects.Add(SourceType:=xlSrcRange, Source:=.UsedRange, Xllistobjecthasheaders:=xlYes).Name = "Tab" & .Name
   End With
  
   Resume 'Fahre an der Stelle fort, an der der Fehler verursacht wurde

End Sub

Aufgerufen wird das Makro über die Tastenkombination Alt+F8 und anschließendes Ausführen von "ArbBlätter_Erzeugen".
In der beiliegenden Demodatei ist auch ein Button enthalten, der mit dem Makro verknüpft ist.

 

Wow !
Tausend Dank für deine Hilfe, funktioniert wunderbar. Damit kann ich auf jeden Fall arbeiten.

Jetzt hab ich außerdem einen guten Grund mir einen neuen PC zu wünschen, denn bei knapp 3000 Zeilen und bis zu 6 Datensätzen braucht das Makro dafür eine Weile (Intel core i5).

Nochmal Danke schön für den tollen Support!