Mehrere .csv Dateien automatisch transponieren und zusammenführen

Sub MergeTranspose()
    Dim isFirst As Boolean, pathFiles as String, fso as Object, file as Object, wsTemp as Worksheet
    pathFiles = "D:\HurtiKurti\Quelle"  
    Set fso = CreateObject("Scripting.FileSystemObject")  
    Set wsTemp = Sheets(2)
    isFirst = True
    With ActiveSheet
        For Each file In fso.GetFolder(pathFiles).Files
            If LCase(fso.GetExtensionName(file.Name)) = "csv" Then  
                With wsTemp.QueryTables.Add(Connection:="TEXT;" & file.Path, Destination:=wsTemp.Range("A1"))  
                    .Name = "import"  
                    .FieldNames = True
                    .AdjustColumnWidth = True
                    .RefreshPeriod = 0
                    .TextFilePlatform = 1252
                    .TextFileStartRow = 1
                    .TextFileParseType = xlDelimited
                    .TextFileTextQualifier = xlTextQualifierDoubleQuote
                    .TextFileSemicolonDelimiter = True
                    .Refresh BackgroundQuery:=False
                    .Delete
                End With
                If Not isFirst Then
                    wsTemp.Range("B1:B" & wsTemp.Cells(Rows.Count, "B").End(xlUp).Row).Copy  
                    .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True  
                Else
                    wsTemp.UsedRange.Copy
                    .Range("A1").PasteSpecial Transpose:=True  
                End If
                
            End If
            isFirst = False
            wsTemp.UsedRange.Clear
        Next
    End With
End Sub

$all = @()
$folder = 'D:\HurtiKurti\Quelle'  
$csvout = 'D:\HurtiKurti\fertig.csv'  
gci $folder -Filter *.csv -File | %{
    $obj = [pscustomobject]@{}
    Import-csv $_.Fullname -Delimiter ";" -Header "A","B" | %{$obj | Add-Member -MemberType NoteProperty -Name $_.A -Value $_.B}  
    $all += $obj
}
$all | export-csv $csvout -Delimiter ";" -NoType -Encoding UTF8  

Import-csv $_.Fullname -Delimiter "`t"  

Import-csv $_.Fullname -Delimiter ";" | %{$obj | Add-Member -MemberType NoteProperty -Name $_.'Spalte1' -Value $_.'Spalte2'}   

Übeschrift1    Überschrift2
Property1    Wert1
Property2    Wert2
Property3    Wert3

Property1    Property2     Property3
Wert1        Wert2         Wert3

# source folder
$folder = 'A:\geologe\quelle'  
# target csv file
$csvout = 'A:\geologe\fertig.csv'  
# csv delimiter
$delimiter = ";"  
foreach($file in Get-ChildItem $folder -File -Filter *.csv){
    $colcount = (Get-Content $file.Fullname -Head 1).split($delimiter).count
    $csv = Import-csv $file.Fullname -Delimiter $delimiter -Header (1..$colcount)
    # create header template 
    $template = [ordered]@{}
    $csv.1 | %{$template.$_ = ''}  
    # add template x times as custom object
    $tbl = 1..($colcount-1) | %{[pscustomobject]$template}
    # for each row in csv
    foreach($row in $csv){
        # for each column (excluding first) in row
        2..$colcount | %{
            # add data to table
            $tbl[$_-2].($row.1) = $row.$_
        }
    }
    # append table to csv
    $tbl | export-csv $csvout -Delimiter $delimiter -NoType -Encoding UTF8 -Force -Append
}