sub dynatable{
# @tz_inhalt soll als Liste übergeben werden
# $teiler soll als scalar übergeben werden
# $flag soll als scalar übergeben werden

my $tz; # lexikalisch um Quereffekte zu vermeiden
while(@l_tzinhalt){
  $tz.= "<tr>"; # neue Tab-Zeile
        my $trenntd = "<td width=1 bgcolor=$fd><img src=$pix width=1></td>" if $flag eq "trennung";
    for ($z=1; $z<=$teiler; $z++){  # soviele Tab-Zellen wie durch \$teiler vorgegeben
    $trenntd = "" if ($z  == $teiler); # keine Trennzeile wenn Letzte Tab-Zelle in Zeile
    $tz.=  shift @l_tzihnalt;
    $trenntd = $#l_tzihnalt > -1 ? $trenntd : ""; # noch Tab-Zelle aus Liste für die akt.Tab-Zeile? - dann Trennzeile dazu
    $tz.= $trenntd;
    }
 $tz.= "</tr>"; # Tabellenzeilenende
}
my $tab_dyna = "<table align=center border=1 cellspacing=0 cellpadding=0>$tz</table>";
return $tab_dyna;
}