diff --git a/SDL/USTV/frmUSTVoffeneAntraege.vb b/SDL/USTV/frmUSTVoffeneAntraege.vb
index 5fd41b29..0730fc7c 100644
--- a/SDL/USTV/frmUSTVoffeneAntraege.vb
+++ b/SDL/USTV/frmUSTVoffeneAntraege.vb
@@ -780,7 +780,7 @@ Public Class frmUSTVoffeneAntraege
                         tblIDSTransactionsNew.[YearMonthDay] ) as temp 
                         inner join tblKundenErweitert on  temp.kdnr = kde_KundenNr 
                         inner join [Länderverzeichnis für die Außenhandelsstatistik] on temp.Einreichland=LandKz
-						left join tblUStVAntrag on UStVAn_KuNr = temp.kdnr and UStVAn_ReDatVon <= temp.Rechnungsdatum and UStVAn_ReDatBis >= temp.Rechnungsdatum and [Länderverzeichnis für die Außenhandelsstatistik].LandNr = UStVAn_LandNr
+						left join tblUStVAntrag on UStVAn_KuNr = temp.kdnr and UStVAn_ReDatVon <= temp.Rechnungsdatum and UStVAn_ReDatBis >= temp.Rechnungsdatum and [Länderverzeichnis für die Außenhandelsstatistik].LandNr = UStVAn_LandNr and isnull(UStVAn_AntragArt,'MWST') = 'MWST'
                         left JOIN tblSteuernummern On temp.Einreichland = tblSteuernummern.LandKz and KdNr = tblSteuernummern.AdressenNr
                         where 1 = 1 and isnull(kde_keineMWSt,0) = 0 " & sqlwhereLand & sqlwhereSteuerNr &
                         " group by isnull(UStVAn_ID,0) , Lieferant, KdNr, Kundenname,Kundenland, Einreichland, tblSteuernummern.UStV"
diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb
index df49d222..a8177078 100644
--- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb
+++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb
@@ -278,8 +278,10 @@ Public Class ustCntlUSTV_AntragPosition
             txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
             If UStV_Leist.hasEntry Then
                 adressLoadedByLeistender = True
+                btnLeistenderSave.Visible = False
                 btnDel.Visible = True
             Else
+                btnLeistenderSave.Visible = True
                 btnDel.Visible = False
             End If
 
@@ -559,16 +561,29 @@ Public Class ustCntlUSTV_AntragPosition
                     If sbLeistender.Text <> "" Then
                         If sbLeistender.Text IsNot Nothing AndAlso sbLeistender.Text <> "" Then
                             If IsNumeric(sbLeistender.Text) Then
-                                If UStV_Leist.UStV_LeistenderId <> sbLeistender.Text OrElse UStV_POS.UStVPo_LeistenderId <> sbLeistender.Text Then txtChanged = True
+                                If UStV_Leist IsNot Nothing AndAlso UStV_Leist.UStV_Leistender <> "" AndAlso (UStV_POS.UStVPo_Leistender <> sbLeistender.Text OrElse UStV_POS.UStVPo_LeistenderId <> sbLeistender.Text) Then
+                                    'speichern der Änderung nur, wenn 1. Leistender gelöscht wird.
+                                    txtChanged = True
+                                ElseIf UStV_Leist Is Nothing Then
+                                    txtChanged = True
+                                End If
+
                                 UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(CInt(sbLeistender.Text))
                             Else
-                                If UStV_Leist.UStV_Leistender <> sbLeistender.Text OrElse UStV_POS.UStVPo_Leistender <> sbLeistender.Text Then txtChanged = True
-                                UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
+                                If UStV_Leist IsNot Nothing AndAlso UStV_Leist.UStV_Leistender <> "" AndAlso (UStV_Leist.UStV_Leistender <> sbLeistender.Text OrElse UStV_POS.UStVPo_Leistender <> sbLeistender.Text) Then
+                                    txtChanged = True
+                                ElseIf UStV_Leist Is Nothing Then
+                                    txtChanged = True
+                                End If
                             End If
 
+                            UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
                             loadChangedDSToPanel(UStV_Leist)
                         Else
-                            loadChangedDSToPanel(Nothing, True)
+                            If UStV_POS.UStVPo_Leistender <> "" OrElse UStV_POS.UStVPo_LeistenderId <> 0 Then
+                                loadChangedDSToPanel(Nothing, True)
+                            End If
+
                         End If
                     End If
                     'MsgBox()
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb
index 35f933e6..43af32eb 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb
@@ -12,7 +12,7 @@ Public Class cUStVLeistender
     Property UstV_Leistender_UstNr As Object = Nothing
     Property UstV_Leistender_Adresse As Boolean
     Property UStV_LeistenderId As Integer
-    Property UstV_aktiv As Boolean
+    Property UstV_aktiv As Boolean = True
 
     Public hasEntry = False