use strict; use Excel::Writer::XLSX; # Hier wird das Excel Dokument geöffnet my $workbook = Excel::Writer::XLSX->new( 'Port.xlsx' ); my $worksheet = $workbook->add_worksheet( 'Port_Übersicht' ); # Tabelle mit Inhalt füllen $worksheet->write( "B5", "Port"); $worksheet->write( "C5", "Status"); $worksheet->write( "B6", "1"); $worksheet->write( "C6", "Up"); $worksheet->write( "B7", "3"); $worksheet->write( "C7", "Up"); $worksheet->write( "B8", "4"); $worksheet->write( "C8", "Up"); $worksheet->write( "B9", "5"); $worksheet->write( "C9", "Down"); $worksheet->write( "E5", "Up-Ports"); $worksheet->write( "E6", "Down-Ports"); # Formeln mit Variable hinzufügen my $Anzahl_Eintraege = 4; my $Zellenende = $Anzahl_Eintraege + 5; my $Ende = "C$Zellenende"; my $UP_Formel = "'=COUNTIF(C6:$Ende,\"Up\")'"; $worksheet->write_formula('F5',($UP_Formel)); # Formel ohne Variable $worksheet->write_formula('F6', '=COUNTIF(C6:C9,"Down")'); $workbook->close; exit;