Ordner mit mehreren csv. Dateien in eine Excel Datei zusammenfassen

Sub ImportCSVFromFolder()
    Dim wsTemp As Worksheet, wsTarget As Worksheet, curCell As Range, CSVPFAD As String, fso As Object, f As Object, strCSVDelimiter As String
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "C:\"  
        .Title = "Ordnerauswahl"  
        .ButtonName = "Auswahl..."  
        .InitialView = msoFileDialogViewList
        If .Show = -1 Then
            CSVPFAD = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    'Legt das CSV-Trennzeichen für die Dateien fest  
    strCSVDelimiter = ";"  
    
    Set fso = CreateObject("Scripting.Filesystemobject")  
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
    'Zielarbeitsblatt für die importierten Daten  
    Set wsTarget = Worksheets(1)
    wsTarget.Name = "Zusammenfassung"  
    'temporäres Arbeitsblatt für den Import der Daten erstellen  
    Set wsTemp = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    
    'Inhalt des Zusammenfassungsblattes löschen  
    wsTarget.UsedRange.Clear
    
    'Startausgabezelle festlegen  
    Set curCell = wsTarget.Range("A1")  
    For Each f In fso.GetFolder(CSVPFAD).Files
        If LCase(fso.GetExtensionName(f.Name)) = "csv" Then  
            'Temporäres Sheet löschen  
            wsTemp.UsedRange.Clear
            'CSV-Daten in Temporäres Sheet importieren  
            With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & f.Path, Destination:=wsTemp.Range("$A$1"))  
                .Name = "import"  
                .FieldNames = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .TextFilePlatform = xlWindows
                .TextFileStartRow = 1
                .TextFileParseType = xlDelimited
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
                .TextFileOtherDelimiter = strCSVDelimiter
                .Refresh BackgroundQuery:=False
                .Delete
            End With
            
            With wsTemp
                'Daten in Zielsheet kopieren  
                .UsedRange.Copy curCell
            End With
            'Ausgabezeile eins nach unten schieben  
            Set curCell = wsTarget.Cells(wsTarget.UsedRange.Rows.Count + 2, 1)
        End If
    Next
    'Temporäres Sheet löschen  
    wsTemp.Delete
    'Spalten anpassen  
    wsTarget.Columns.AutoFit
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "Vorgang beendet!", vbInformation  
    Set fso = Nothing
End Sub

export-csv : CSV-Inhalt kann nicht an folgende Datei angefügt werden: C:\Users\Jan Ole\Desktop\Neuer
Ordner\zusammenfassung.csv. Das angefügte Objekt hat keine Eigenschaft, die der folgenden Spalte entspricht: 335.0.
Soll der Ablauf mit nicht übereinstimmenden Eigenschaften fortgesetzt werden, fügen Sie den Parameter "-Force" hinzu,  
und wiederholen Sie den Vorgang.
In Zeile:5 Zeichen:76
+ ... iter ";"  | export-csv $out -Append -Delimiter ";" -Notype -Encoding  ...  
+                 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidData: (335.0:String) [Export-Csv], InvalidOperationException
    + FullyQualifiedErrorId : CannotAppendCsvWithMismatchedPropertyNames,Microsoft.PowerShell.Commands.ExportCsvComman
   d

$folder = 'C:\Users\Neuer Ordner'  
$out = 'C:\Users\Neuer Ordner\zusammenfassung.csv'  
gci $folder -Filter *.csv | %{
    $raw = ((gc $_.FullName) | select -Skip 7)
    $csv = $raw[0..($raw.GetUpperBound(0)-1)]| ConvertFrom-CSV -Delimiter ";" -Header 1,2,3,4,5,6,7  
    $csv | %{$_.6 = get-date $_.6 -Format 'dd-MM-yyyy HH:mm:ss'}  
    $csv | export-csv $out -Append -Delimiter ";" -Notype -Encoding UTF8  
}

Export-Csv : Das Argument für den Parameter "Path" kann nicht überprüft werden. Das Argument ist NULL oder leer. Geben  
Sie ein Argument an, das nicht NULL oder leer ist, und führen Sie den Befehl erneut aus.
In Zeile:10 Zeichen:23
+     $csv | export-csv $out -Append -Delimiter ";" -Notype -Encoding U ...  
+                       ~~~~
    + CategoryInfo          : InvalidData: (:) [Export-Csv], ParameterBindingValidationException
    + FullyQualifiedErrorId : ParameterArgumentValidationError,Microsoft.PowerShell.Commands.ExportCsvCommand

Es ist nicht möglich, eine Methode für einen Ausdruck aufzurufen, der den NULL hat.
In Zeile:6 Zeichen:5
+     $csv = $raw[0..($raw.GetUpperBound(0)-1)]| ConvertFrom-CSV -Delim ...
+     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) , RuntimeException
    + FullyQualifiedErrorId : InvokeMethodOnNull

$folder = 'C:\Users\ICH\Desktop\Import'  
$outEW = 'C:\Users\ICH\Desktop\Export\EW.csv'  
$outEN = 'C:\Users\ICH\Desktop\Export\EN.csv'   
$outRT = 'C:\Users\ICH\Desktop\Export\RT.csv'  
$outVE = 'C:\Users\ICH\Desktop\Export\VE.csv'  
gci $folder -Filter *.csv -recurse | %{
    $raw = ((gc $_.FullName) | select -Skip 7) 
    $csv = $raw[0..($raw.GetUpperBound(0)-1)]| ConvertFrom-CSV -Delimiter ";" -Header 1,2,3,4,5,6,7   
    $csv | %{$_.3 = get-date $_.3 -Format 'MM/dd/yyyy HH:mm:ss'}   
    $csv | %{$_.5 = get-date $_.5 -Format 'MM/dd/yyyy HH:mm:ss'}   
    $csv | %{$_.6 = get-date $_.6 -Format 'MM/dd/yyyy HH:mm:ss'}   
    $csv | ?{$_.2 -eq 'Auto'} | export-csv $outEW -Append -Delimiter ";" -Notype -Encoding UTF8   
    $csv | ?{$_.2 -eq 'Katze'} | export-csv $outEN -Append -Delimiter ";" -Notype -Encoding UTF8   
    $csv | ?{$_.2 -eq 'Hannes'} | export-csv $outRT -Append -Delimiter ";" -Notype -Encoding UTF8   
    $csv | ?{$_.5 -eq 'Wurst'} | export-csv $outVE -Append -Delimiter ";" -Notype -Encoding UTF8   
}