unless ($dbh->selectrow_array(qq{SELECT * FROM Etikett WHERE Auftrag=? AND Atrikel=? AND Typ=? AND Stueck=?}, undef, $Auftrag, $Artikel, $Typ, $Stueck)) {
$dbh->do(qq{INSERT INTO Etikett (Auftrag,Artikel,Typ,Stueck) VALUES(?,?,?,?)},undef, $Auftrag, $Artikel, $Typ, $Stueck)
  or die "Fehler beim Einfuegen: $DBI::errstr\n";
}