Mit der Powershell Excelsheets bearbeiten

$excel = New-Object -comobject Excel.Application 		# create base object
$excel.visible = $true 									# make Excel visible 
cls 													# Clear Screen
ls c:\Morphometrie.xls									# verify object exists
$wb = $excel.workbooks.open("c:\Morphometrie.xls")		# open the workbook
$ws = $wb.Worksheets.item(2)							# open worksheet
Set-Variable xlShiftUp -option Constant -value -4162 

$i = 2
$j = 2
while ( $ws.Cells.Item($i,$j).Text -eq "Length/µM" ) {
	$i+=1
	while ($ws.Cells.Item($i,$j).Text -ne ""){
		$ws.Cells.Item($i,$j+1) = $ws.Cells.Item($i+1,$j)
		Write-Host Zelle Value: $ws.Cells.Item($i+1,$j).Text nach Zelle: Y: $i, X: {$j+1} `n
		if($ws.Cells.Item($i+2,$j) -ne "")
		{
			$ws.Cells.Item($i+1,$j).Delete()::xlShiftUp
			Write-Host Zelle indeX: "{$i+1}" ,Y: "$j" Gelöscht `n
		}
		$i+=1
	}
	$j += 8
	$i  = 2
}
#close workbook && excel
$wb.SaveAs("c:\Morphometrie_new.xls")
$excel.Quit()
spps -n excel

while ( Bedingung ) { tu was }

Spaltenanzahl = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column
While Cells(1, Spaltenanzahl).Text <> "Length/µM"
    j = ActiveCell.Columns
    Zeilenanzahl = ActiveSheet.Cells(Rows.Count, j).End(xlUp).Row
    For i = 3 To Zeilenanzahl
        Cells(i + 1, j).Select
        Selection.Cut
        Cells(i, j + 1).Select
        ActiveSheet.Paste
        Cells(i + 1, j).Select
        Selection.Delete Shift:=xlUp
    Next i
Wend