while(<VP2>)						
{$zaehler++;						
	if ($zaehler < $anfang || $zaehler > $ende)
		{next;}
chomp;							
@auslese1 = split (/\t/, $_); 				

if ($auslese1[$spalt7] eq "j")
{$zaehler = ($zaehler + 1);


{

if ($auslese1[$spalt7] eq "j") 
	  {if ($auslese1[$spalt2] eq "Gewonnen")  
			{print RELRE "$auslese1[$spalt1]\t";}