diff --git a/fhem/FHEM/70_ONKYO_AVR.pm b/fhem/FHEM/70_ONKYO_AVR.pm
index 138d80617..a60a95ae5 100644
--- a/fhem/FHEM/70_ONKYO_AVR.pm
+++ b/fhem/FHEM/70_ONKYO_AVR.pm
@@ -44,6 +44,7 @@ sub ONKYO_AVR_Get($$$);
 sub ONKYO_AVR_Define($$$);
 sub ONKYO_AVR_Undefine($$);
 sub ONKYO_AVR_Notify($$);
+sub ONKYO_AVR_Shutdown($);
 
 #########################
 # Forward declaration for remotecontrol module
@@ -70,6 +71,7 @@ sub ONKYO_AVR_Initialize($) {
     $hash->{GetFn}       = "ONKYO_AVR_Get";
     $hash->{SetFn}       = "ONKYO_AVR_Set";
     $hash->{NotifyFn}    = "ONKYO_AVR_Notify";
+    $hash->{ShutdownFn}  = "ONKYO_AVR_Shutdown";
     $hash->{parseParams} = 1;
 
     no warnings 'qw';
@@ -423,6 +425,16 @@ sub ONKYO_AVR_Undefine($$) {
     return undef;
 }
 
+###################################
+sub ONKYO_AVR_Shutdown($) {
+    my ($hash) = @_;
+    my $name = $hash->{NAME};
+    Log3 $name, 5, "ONKYO_AVR $name: called function ONKYO_AVR_Shutdown()";
+
+    DevIo_CloseDev($hash);
+    return undef;
+}
+
 ###################################
 sub ONKYO_AVR_Read($) {
     my ($hash) = @_;
@@ -2334,6 +2346,34 @@ sub ONKYO_AVR_Set($$$) {
         }
     }
 
+    # internet-radio-preset
+    elsif ( lc( @$a[1] ) eq "internet-radio-preset" ) {
+        if ( !defined( @$a[2] ) ) {
+            $return = "No argument given";
+        }
+        else {
+            if ( $state eq "off" ) {
+                $return = ONKYO_AVR_SendCommand( $hash, "power", "on" );
+                $return .= fhem "sleep 5;set $name " . @$a[1] . " " . @$a[2];
+            }
+            elsif ( $hash->{INPUT} ne "2B" ) {
+                $return = ONKYO_AVR_SendCommand( $hash, "input", "2B" );
+                $return .= fhem "sleep 5;set $name " . @$a[1] . " " . @$a[2];
+            }
+            elsif ( @$a[2] =~ /^\d*$/ ) {
+                Log3 $name, 3, "ONKYO_AVR set $name " . @$a[1] . " " . @$a[2];
+                $return = ONKYO_AVR_SendCommand(
+                    $hash,
+                    lc( @$a[1] ),
+                    ONKYO_AVR_dec2hex( @$a[2] )
+                );
+            }
+            else {
+                $return = "Invalid argument format";
+            }
+        }
+    }
+
     # preset
     elsif ( lc( @$a[1] ) eq "preset" ) {
         if ( !defined( @$a[2] ) ) {
diff --git a/fhem/FHEM/71_ONKYO_AVR_ZONE.pm b/fhem/FHEM/71_ONKYO_AVR_ZONE.pm
index 9e3311d69..71e6b6e50 100644
--- a/fhem/FHEM/71_ONKYO_AVR_ZONE.pm
+++ b/fhem/FHEM/71_ONKYO_AVR_ZONE.pm
@@ -887,6 +887,34 @@ sub ONKYO_AVR_ZONE_Set($$$) {
         }
     }
 
+    # internet-radio-preset
+    elsif ( lc( @$a[1] ) eq "internet-radio-preset" ) {
+        if ( !defined( @$a[2] ) ) {
+            $return = "No argument given";
+        }
+        else {
+            if ( $state eq "off" ) {
+                $return = ONKYO_AVR_SendCommand( $hash, "power", "on" );
+                $return .= fhem "sleep 5;set $name " . @$a[1] . " " . @$a[2];
+            }
+            elsif ( $hash->{INPUT} ne "2B" ) {
+                $return = ONKYO_AVR_SendCommand( $hash, "input", "2B" );
+                $return .= fhem "sleep 5;set $name " . @$a[1] . " " . @$a[2];
+            }
+            elsif ( @$a[2] =~ /^\d*$/ ) {
+                Log3 $name, 3, "ONKYO_AVR set $name " . @$a[1] . " " . @$a[2];
+                $return = ONKYO_AVR_SendCommand(
+                    $hash,
+                    lc( @$a[1] ),
+                    ONKYO_AVR_dec2hex( @$a[2] )
+                );
+            }
+            else {
+                $return = "Invalid argument format";
+            }
+        }
+    }
+
     # preset
     elsif ( lc( @$a[1] ) eq "preset" ) {
         if ( !defined( @$a[2] ) ) {