my @typen = ("Befestigungsmaterial", "Ausbaumaterial", "Hls", "Installation", "Profilholz", "Spanplatten", "Dachstuhlholz", "Deckenbalken", "Wandelementholz", "Giebelbau", "Wandfertigung", "Individual");

### MAIN ###

excellent(@typen);

##</code><code>##

sub excellent{
	
	my $filename = cwd . "/" . "inventur.xls"; #dateiname
	my $excel = CreateObject OLE "Excel.Application"; #excel-objekt erstellen
	$excel -> {Visible} = 1; #parameter festlegen
	$excel->{DisplayAlerts}=0;
	my $workbook = $excel -> Workbooks -> Open($filename); # Arbeitsmappe öffnen
	
	foreach my $tbl (@_)
	{
		# Sheet selektieren
		my $sheet = $workbook -> Worksheets("$tbl");
		$sheet -> Select;
		# Unprotect Sheet
		$sheet->Unprotect();
		# leere Zeilen löschen
		our $last_row = $sheet -> Range("D1000")->End(xlUp)->Row; # letzte Zeile ermitteln
		for(my $i=11;$i<=$last_row;$i++)
		{
			if( $sheet->Range("D" . $i)->{Value} eq "0")
			{
				$sheet->Cells($i, 4)->EntireRow->Delete;
			}
			# Leerzeichen in Spalte entfernen				
			#$sheet->Range("Q" . $i)->{Value}->Replace(What => " ", Replacement => "");	
		}		
		# Speichern und Schließen
		$workbook->SaveAs({Filename => cwd . "/$tbl.csv",
		FileFormat => xlCSV});			
	}
	$workbook->Close();
	$excel->Quit();		
}