sub spalteninfo {
    my ( $self, $spalteninfo ) = @_;
    $self->{spalteninfo} = $spalteninfo if defined($spalteninfo);
    return $self->{spalteninfo};
}