sub SearchAdresse {
    my $obj = shift;
    my $name = shift;
    my $vorname = shift;
    my @searchAdressen;
    my $adrNr;
    my $feldName;
    my $feldVorname;
    
   
    $name =~ s/\*/\.\*/g;
    $name =~ s/\?/\.\?/g;
    $vorname =~ s/\*/\.\*/g;
    $vorname =~ s/\?/\.\?/g;
    
    foreach $adrNr (keys %adresse) {
        $feldName = $adresse{$adrNr}{'txtNameFirma'};
        $feldVorname = $adresse{$adrNr}{'txtNameVorname'};
        if (($feldName =~ /^$name\b/i) && ($feldVorname=~ /^$vorname\b/i)) {
            push(@searchAdressen,$adrNr);
        }
    }
    if (@searchAdressen) {
        return @searchAdressen;
    }
    return;
}