sub spalteninfo {
    my ( $self, @spalteninfo ) = @_;
    $self->{spalteninfo} = $spalteninfo[0] if scalar(@spalteninfo);
    return $self->{spalteninfo};
}