sub DeleteIfExist($){
if (Value("@_") ne "") {
fhem("delete @_");
}
}
if(Value("Wecken_Heizen") eq "Aus") # Heizen auf Aus
{
DeleteIfExist("atWeckerBAHEs");
DeleteIfExist("atWeckerBAHEe");
}
sub DeleteIfExist($){
fhem("delete @_") if (defined($defs{@_}));
}