diff --git a/fhem/FHEM/70_BOTVAC.pm b/fhem/FHEM/70_BOTVAC.pm
index 61a7a9c26..4d0fbf1e1 100755
--- a/fhem/FHEM/70_BOTVAC.pm
+++ b/fhem/FHEM/70_BOTVAC.pm
@@ -550,12 +550,15 @@ sub Set($@) {
                 my $prefName = $1;
                 $params{$prefName} = ReadingsVal($name, $reading, "null");
                 $params{$prefName} *= 43200 if ($prefName =~ /ChangeReminderInterval/ and $params{$prefName} =~ /^\d*$/);
+                $params{$prefName} = SetBoolean($params{$prefName}) if ($prefName eq "robotSounds");
             }
         }
 
         return "No preferences present, execute 'set statusRequest' first." unless (keys %params);
 
-        $params{$item} = ($item =~ /ChangeReminderInterval/ && $a[2] =~ /^\d*$/ ? $a[2] * 43200 : $a[2]);
+        $params{$item} = $a[2];
+        $params{$item} *= 43200 if ($item =~ /ChangeReminderInterval/ && $params{$item} =~ /^\d*$/);
+        $params{$item} = SetBoolean($params{$item}) if ($item eq "robotSounds");
 
         SendCommand( $hash, "messages", "setPreferences", \%params );
     }
@@ -1096,7 +1099,10 @@ sub ReceiveCommand($$$) {
                   my $data = $return->{data};
                   foreach my $key (keys %{$return->{data}}) {
                     my $value = $data->{$key};
-                    $value /= 43200   if ($key =~ /ChangeReminderInterval/ and $value =~ /^[1-9]\d*$/);
+                    $value /= 43200
+                        if ($key =~ /ChangeReminderInterval/ and $value =~ /^[1-9]\d*$/);
+                    $value = GetBoolean($value)
+                        if ($key =~ /(robotSounds)|(dirtbinAlert)|(allAlerts)|(leds)|(buttonClicks)|(clock24h)/);
                     readingsBulkUpdateIfChanged($hash, "pref_$key", $value);
                   }
                 }
@@ -1455,6 +1461,22 @@ sub GetBoolean($) {
     }
 }
 
+sub SetBoolean($) {
+    my ($value) = @_;
+    my $booleans = {
+        '0'       => "false",
+        'off'     => "false",
+        '1'       => "true",
+        'on'      => "true"
+    };
+
+    if (defined( $booleans->{$value})) {
+        return $booleans->{$value};
+    } else {
+        return $value;
+    }
+}
+
 sub BuildState($$$$) {
     my ($hash,$state,$action,$error) = @_;
     my $states = {