Saldoneuberechnung über Contextmenü im Gesamtsicherheitsmenü

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -411,15 +411,9 @@ Public Class frmGesamtsicherheitenMenuNEU
 
     Private Sub SaldenNeuBerechnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaldenNeuBerechnenToolStripMenuItem.Click
 
-        If vbYes = MsgBox("Soll der Saldo neu berechnet werden?", vbYesNo) Then
-            'Logik für Neuberechnung der Salden
-
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
         MsgBox("Salden wurden neu berechnet")
 
-        End If
-
-
-
     End Sub
 
     Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles btnExcel.Click