my $n = 1;
while ($Book->Worksheets($n)){	
	print STDERR "Durchlauf : $n\n";
	$n += 1;
}