sub mySort {
    my ( $self, $spalte ) = @_;
    if ( ! defined $spalte ) {
        $spalte = $self->{maxspalte} - 2;
    }