Excelwerte über Powershell auslesen und formatieren

Add-Type -AssemblyName System.Windows.Forms
cls
# Suchwörter abfragen
$searchterms = @()
1..3 | %{
    $searchterms += (Read-Host "Suchwert $_ eingeben").ToString()  
}

# Datei-Auswahldialog ----
$dlg = New-Object System.Windows.Forms.OpenFileDialog
$dlg.Multiselect = $false
$dlg.Title = 'Datei die durchsucht werden soll auswählen'  
$dlg.Filter = 'Excel Dateien | *.xlsx;*.xls;*.xlsm'  
if($dlg.ShowDialog() -eq 'OK'){  
    $quelle = $dlg.FileName
}
# --------

# Speicherpfad für Ausgabedatei (im selben Ordner wie die Quelle)
$savepath = "$(Split-Path $quelle -Parent)\result.xlsx"  

# Excel Objekt
$objExcel = New-Object -Com Excel.Application
# Dialogfelder ausschalten
$objExcel.DisplayAlerts = $false
# Mappe öffnen
$wb = $objExcel.Workbooks.Open($quelle)
# Excel anzeigen (wenn nicht gewünscht auf $false setzen)
$objExcel.Visible = $true
# Neues Workbook erstellen
$wbout = $objExcel.Workbooks.Add()
# Ausgabesheet im neuen Workbook
$wsout = $wbout.Sheets.Item(1)
# Überschriften der Spalten im Ausgabesheet setzen
$wsout.Range("A1:C1").Value() = $searchterms  

# Suchbereich im Quellsheet festlegen
$rngSearch =  $wb.Sheets.Item(1).Range("A:A")  
$col = 1
# Für jedes Suchwort einen Suchvorgang starten
$searchterms | %{
    $found = @()
    $result = $rngSearch.Find("$_*",[System.Reflection.Missing]::Value,-4163)  
    # Wenn Wert gefunden wurde
    if ($result -ne $null){
        # erste Fundstelle speichern wegen Abbruchbedingung
        $f = $result.Address()
        Do{
            # Fund mit Leerzeichen splitten und in Array speichern
            $found += $result.Value().Split(" ",2)[1]  
            # nächste Fundstelle suchen
            $result = $rngSearch.FindNext($result)
        }while($result -ne $null -and $result.Address() -ne $f)
        
        # 2-dim Array erstellen und gefundene Wert dort hinterlegen
        $arrFound = New-Object 'object[,]' $found.Count,1  
        0..($found.count-1) | %{
            $arrFound[$_,0] = $found[$_]
        }
        # Array in Spalte schreiben
        $wsout.Cells.Item(2,$col).Resize($found.Count,1).Value() = $arrFound
    }
    $col++
}

$wbout.SaveAs($savepath)
$wbout.Close($true)
#$objExcel.DisplayAlerts = $true
# Dokument schließen
$wb.Close($false)
# Excel schließen
$objExcel.Quit()
# Ressourcen freigeben
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($objExcel)