diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb
index c2084ef0..d10a4ad4 100644
--- a/SDL/Classes/cRKSV.vb
+++ b/SDL/Classes/cRKSV.vb
@@ -2427,7 +2427,7 @@ Public Class cRKSV
                 Dim Personenkonto As Integer = 0
                 Dim kontenzaehler As Integer = 0
 
-                Dim Bestandskonto As Integer = 0
+                Dim Bestandskonto As Integer = Kassenkonto
                 Dim Erlöskonto As Integer = 0
                 Dim Sachkonto As Integer = 0
 
@@ -2474,7 +2474,7 @@ Public Class cRKSV
                     Dim R3 As DataRow = dt_Verbuchungskonten.NewRow
                     R3("Nr") = 1
                     R3("Konto") = r.Konto
-                    Bestandskonto = r.Konto
+                    Erlöskonto = r.Konto
                     R3("Soll") = r.Soll
                     R3("Haben") = r.Haben
                     dt_Verbuchungskonten.Rows.Add(R3)