diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index fb7c0369d..d3c2ae07e 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -4980,7 +4980,18 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
     }
     CUL_HM_UpdtCentral($name);
   }
-                                             
+ 
+  elsif($cmd eq "assignHmKey") { ##############################################
+    $state = "";
+    my $oldKeyIdx = ReadingsVal($name, "aesKeyNbr", "00");
+    return "current key unknown" if (!defined $oldKeyIdx || $oldKeyIdx eq "");
+
+    CUL_HM_PushCmdStack($hash,'++'.$flag.'04'.$id.$dst.'01'.
+                        sprintf("%02X",$oldKeyIdx));
+    CUL_HM_PushCmdStack($hash,'++'.$flag.'04'.$id.$dst.'01'.
+                        sprintf("%02X",($oldKeyIdx+1)));
+  }
+ 
   else{
     return "$cmd not implemented - contact sysop";
   }
@@ -5234,6 +5245,7 @@ sub CUL_HM_getConfig($){
   }
 }
 
+
 sub CUL_HM_calcDisWmSet($){
   my $dh = shift; 
   my ($txt,$col,$icon) = eval $dh->{exe};
diff --git a/fhem/FHEM/HMConfig.pm b/fhem/FHEM/HMConfig.pm
index 5f131b6e2..3cd3426cf 100644
--- a/fhem/FHEM/HMConfig.pm
+++ b/fhem/FHEM/HMConfig.pm
@@ -1378,6 +1378,7 @@ $culHmRegChan{"ROTO_ZEL-STG-RM-FWT03"}= $culHmRegChan{"HM-CC-TC03"};
                        raw           => "data ..."
                       ,reset         => ""
                       ,unpair        => ""
+                      ,assignHmKey   => ""
 );
 
 %culHmSubTypeDevSets = (# device of this subtype