PowerShell Excel-Tabelle nach bestimmten Werten durchsuchen und Werte in eine zweite Excel-Tabelle schreiben

$PfadServerListe = "\\Pfad\Server-Liste.xlsx"  
$TabelleServerListe = "VM Details"  

#Server-Liste: Spalte mit Server-Namen -> Spalte E = Spalte 5 -> VM DNS Name
[int]$SpalteServerNamen = 5       
#Server-Liste: Spalte in die Alias-Namen eingefügt werden -> Spalte O = Spalte 15 
[int]$SpalteAliasNamen = 15

#Alias-Liste
$PfadAliasListe = "\\Pfad\Alias-Liste.xlsx"  
$TabelleAliasListe = "Alias-Liste"  

#Alias-Liste: Spalte mit Alias-Namen
[int]$SpalteAliasNamenAL = 1
#Alias-Liste: Spalte mit Server-Namen
[int]$SpalteServerNamenAL = 2

#Zeile, ab welcher begonnen wird = 2 wg. vorhandener Überschriften
[int]$Zeile = 2

#String, welcher alle Aliasse eines Servers als kommaseparierte Liste enthält und in die Server-Liste geschrieben wird
[String]$ServerAliaseAL 

#Server-Liste in Excel starten
$ExcelServerListe = New-Object -ComObject excel.application
#Server-Liste anzeigen 
$ExcelServerListe.Visible = $true
$WorkbookServerListe = $ExcelServerListe.Workbooks.Open($PfadServerListe)
$TableServerListe =$WorkbookServerListe.Worksheets.Item($TabelleServerListe)
$ServerName = $TableServerListe.Cells.Item($Zeile,$SpalteServerNamen).Text

#Alias-Liste in Excel öffnen
$ExcelAliasListe = New-Object -ComObject excel.application
#Alias-Liste anzeigen
$ExcelAliasListe.Visible = $true

$WorkbookAliasListe = $ExcelAliasListe.Workbooks.Open($PfadAliasListe)
$TableAliasListe =$WorkbookAliasListe.Worksheets.Item($TabelleAliasListe)
$AliasNameAL = $TableAliasListe.Cells.Item($Zeile,$SpalteAliasNamenAL).Text
$ServerNameAL = $TabelleAliasListe.Cells.Item($Zeile,$SpalteServerNamenAL).Text
$AliasString
do {
#Servernamen aus Server-Liste auslesen
$ServerName = $TableServerListe.Cells.Item($Zeile,$SpalteServerNamen).Text

#Alias-Liste öffnen
#nach Servername $ServerName suchen
#gefundenen Alias zum Alias-String hinzufügen
#Suche fortsetzen bis das Ende der Alias-Liste erreicht ist
#Alias-String in Zelle schreiben
$TableServerListe.Cells.Item($Zeile, $SpalteAliasNamen).value2 = $AliasString
$Zeile++
}
#wiederholen, bist Ende der Server-Liste erreicht ist
while($TableServerListe.Cells.Item($Zeile,$SpalteServerNamen).Text.Length -gt 0)
#Server-Liste speichern
$WorkbookServerListe.Save()
#Excel schließen
$ExcelServerListe.Quit()
$ExcelAliasListe.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($ExcelServerListe)