# Positionen fuer Gruppenklammern merken if ( $klammer0 != $outrow ) { $a = $klammer0 + 1 ; $e = $outrow ; $klammern0{$a} = $e ; } #--------------------------------------------------- foreach my $anfang ( sort keys %klammern0 ) { foreach ( $anfang..$klammern0{$anfang} ) { $worksheet->set_row($_, undef, undef, 1, 1, 2 ); } }