Danke Alexander und Siechfred,
mit NAME geht es super. Hab mir doch gedacht, dass es was in der Art geben muss.
Bert
#################################################################
while (@row = $sth->fetchrow_array) {
if ($Counter == 0) {
#Überschrift
foreach (@{$sth->{NAME}}) {
$Worksheet->write($RowNum, $ColNum, $_ , $FormatHeadline);
$ColNum++;
}
$ColNum = 0;$RowNum++;
}
#Daten
foreach (@row) {
$Worksheet->write($RowNum, $ColNum, $_ , $FormatContent);
$ColNum++;
}
$Counter++;
$ColNum = 0;$RowNum++;
}