RemovalCheck {
my $RemovalBlack = "off";
my $RemovalBrown = "off";
my $RemovalBlue = "off";
my $RemovalYellow = "off";
my $RemovalToxic = "off";
my $RemovalPaper = "off";
my $RemovalGreen = "off";

my $rcal= fhem("get Abfall text all 4");
my @events = split ("\n", $rcal);
my $tomorrow = strftime "%d.%m.%y", localtime(time + 86400);

foreach my $event (@events)
{
 my @values = split(" ", $event);

 if ($values[0] eq $tomorrow)
 {
  if ($values[3] eq "Restmüll") {$RemovalBlack = "on"}
  elsif ($values[3] eq "Biomüllabfuhr") {$RemovalBrown = "on"}
  elsif ($values[3] eq "Papiertonne") {$RemovalBlue = "on"}
  elsif ($values[3] eq "Gelber") {$RemovalYellow = "on"}
  elsif ($values[3] eq "Schadstoffsammlung") {$RemovalToxic = "on"}
  elsif ($values[3] eq "Papiersammlung") {$RemovalPaper = "on"}
  elsif ($values[3] eq "Grünabfallsammlung") {$RemovalGreen = "on"}
 }
}
fhem("set RemovalBlack $RemovalBlack");
fhem("set RemovalBrown $RemovalBrown");
fhem("set RemovalBlue $RemovalBlue");
fhem("set RemovalYellow $RemovalYellow");
fhem("set RemovalToxic $RemovalToxic");
fhem("set RemovalPaper $RemovalPaper");
fhem("set RemovalGreen $RemovalGreen");
return;
}