diff --git a/webfrontend/pgm2/01_FHEMWEB.pm b/webfrontend/pgm2/01_FHEMWEB.pm
index b11b10c3e..0220bf0ea 100755
--- a/webfrontend/pgm2/01_FHEMWEB.pm
+++ b/webfrontend/pgm2/01_FHEMWEB.pm
@@ -1681,7 +1681,12 @@ FW_showWeblink($$$$)
   my ($d, $v, $t, $buttons) = @_;
 
   my $attr = AttrVal($d, "htmlattr", "");
-  if($t eq "link") {
+
+  if($t eq "htmlCode") {
+    $v = AnalyzePerlCommand(undef, $v) if($v =~ m/^{(.*)}$/);
+    FW_pO $v;
+
+  } elsif($t eq "link") {
     FW_pO "<a href=\"$v\" $attr>$d</a>";    # no FW_pH, want to open extra browser
 
   } elsif($t eq "image") {
diff --git a/webfrontend/pgm2/98_weblink.pm b/webfrontend/pgm2/98_weblink.pm
index d4f6f4bfa..5dfde1009 100755
--- a/webfrontend/pgm2/98_weblink.pm
+++ b/webfrontend/pgm2/98_weblink.pm
@@ -22,7 +22,7 @@ weblink_Define($$)
 {
   my ($hash, $def) = @_;
   my ($type, $name, $wltype, $link) = split("[ \t]+", $def, 4);
-  my %thash = ( link=>1, fileplot=>1, image=>1, iframe=>1 );
+  my %thash = ( link=>1, fileplot=>1, image=>1, iframe=>1, htmlCode=>1 );
   
   if(!$link || !$thash{$wltype}) {
     return "Usage: define <name> weblink [" .