diff --git a/server.R b/server.R
index 22ef72e..48927ce 100644
--- a/server.R
+++ b/server.R
@@ -41,6 +41,9 @@ server <- function(input, output, session) {
     mapproxy <- leafletProxy("hhmap")
     clearGroup(mapproxy, "selected")
     clearGroup(mapproxy, "layer_heatmap")
+    # Entfernt eine eventuell existierende Legende vom vorherigen Durchlauf
+    removeControl(mapproxy, "heatmap_legend")
+    
     if (heatmap != "") {
       hideGroup(mapproxy, "layer_bezirke")
       hideGroup(mapproxy, "layer_stadtteile")
@@ -68,11 +71,19 @@ server <- function(input, output, session) {
         weight = 3,
         fillOpacity = 0.8
       )
+      # Legende hinzufügen
+      addLegend(mapproxy, 
+                pal = pal, 
+                values = heatmap_polygons$intensity, 
+                title = paste("Intensität:", heatmap),
+                position = "bottomright",
+                layerId = "heatmap_legend" # Wichtig zum gezielten Entfernen
+      )
       #---------------------
     } else {
       if (maptype == "Bezirke"){
-        hideGroup(mapproxy, "layer_stadtteile")
-        showGroup(mapproxy, "layer_bezirke")
+         hideGroup(mapproxy, "layer_stadtteile")
+         showGroup(mapproxy, "layer_bezirke")
       } 
       else {
         hideGroup(mapproxy, "layer_bezirke")