use strict;
use warnings;

use Spreadsheet::XLSX;
use Excel::Writer::XLSX;

my $workbook = Spreadsheet::XLSX->new("mappe1.xlsx");
my $worksheet = $workbook->worksheet("Tabelle1");
my $cell = $worksheet->get_cell( 2, 1 );
print $cell->value()."\n";
print $cell->encoding()."\n";

my $fuer = $cell->value();

my $workbook_write = Excel::Writer::XLSX->new( "mappe2.xlsx" );
my $new_sheet = $workbook_write->add_worksheet( "Tabelle1" );
$new_sheet->write_string( 1, 1, $fuer);