sub sort {
    my $self = shift;
    my $spalte;
    unless (@_){$spalte = $self->{maxspalte}-2} # hier unwichtig
    else {$spalte = shift}                      # hier unwichtig