while(@Datensatz_page1 = $Abfrage_page1->fetchrow_array()) {

  my $textarea = $hlist_page1->Text(-width=>20, -height=>3, -font=>"Arial 7");
  my $srl_y = $hlist_page1->Scrollbar(-orient=>'v', -command=>[yview => $textarea]);
  $textarea->configure(-yscrollcommand=>['set', $srl_y]);
  $textarea->insert('end',"$Datensatz_page1['3']");

  $hlist_page1->add($i);
  $hlist_page1->itemCreate($i, 0, -text => "$Datensatz_page1['0']");
  $hlist_page1->itemCreate($i, 1, -text => "$Datensatz_page1['1']");
  $hlist_page1->itemCreate($i, 2, -itemtype => 'window' , -widget => $textarea);
  $hlist_page1->itemCreate($i, 3, -text => "$Datensatz_page1['2']");

  $i = $i+1;
}