sub SearchAddress {
    my $Field = shift;  # Hlist
    my $Search = shift; # Suchfeld
    
    quotemeta $Search;  # Metazeichen fuer RegEx
                        # ausquoten
    for (keys %ADR) {
        $Field->show(-entry => $ADR{$_}->{'Name'});     # Jedes Feld wieder anzeigen
                                                        # Gibt sonst n bloeden Nebeneffekt.
        unless ($ADR{$_}->{'Name'}=~/$Search/i) {       # Aaaaber wenn es nicht $Search enthaelt...
            $Field->hide(-entry => $ADR{$_}->{'Name'}); # ... wieder verstecken
        }
    }
}