open (OKR,"<$ok_reingang");	
  @OK =<OKR>;
close  (OKR);

$entry  ="";
$record =0;
$zeile = 1;

&parse;

# $entry  aus POST von parse
# $zeile  aus POST von parse

foreach $rec (@OK){	                 # Datei abarbeiten ca. 30 Zeilen
     $record=$record+1;	
     if ($record >= $zeile){
        chomp($rec);
        ($f1,$f2,$f3,$f4)=split(/;/,$rec);
        foreach $row ($rowstart..$rowend){
            $val = $Sheet->Cells($row,$colbest)->{'Value'};	
            # lese Wert aus Excel
            chomp($val);
            ($g1,$g2,$g3,$g4)=split(/;/,$val);
            if ($f1 eq $g1){
               # lese komplette Excel-Zeile
               print "$rec<br>$excelzeile<br>\n";
               if (($entry eq "NEIN") || ($entry eq ""))
                  print "<form action='http://localhost/cgi-bin/belege2excel.pl' method='POST'><br>\n";
                  print "<input type="hidden' size='10' maxlength='10' name='zeile' value='$record'><br>\n";
                  print "<input type='submit' name='entry' value='JA'> <input type='submit' name='entry' value='NEIN'><br>\n";
               }else{
                  # schreibe Daten in Excelfile
               }
            }

         }
     }

}