diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb
index 768797c1..94318945 100644
--- a/SDL/mdm/usrcntlFremdrechnungen.vb
+++ b/SDL/mdm/usrcntlFremdrechnungen.vb
@@ -1012,21 +1012,35 @@ Public Class usrcntlFremdrechnungen
         If Not dgvInitWait Then
             Try
                 If dgvLFRechnung.SelectedRows.Count > 0 AndAlso (aktLieferant = "IDS" Or aktLieferant = "ALLE") Then
+
+                    If dgvLFRechnung.SelectedRows.Count = 1 AndAlso dgvLFRechnung.SelectedRows(0).Cells("Lieferant").Value <> "IDS" Then
+                        dgvDetails.Visible = False
+                        Exit Sub
+                    End If
+
                     dgvDetails.Visible = True
+
                     If Not SplitContainer1.Panel2Collapsed Then
 
-                        Select Case aktLieferant
-                            Case "IDS" : initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value)
-                            Case "ALLE" : If dgvLFRechnung.Columns.Contains("Lieferant") AndAlso dgvLFRechnung.SelectedRows(0).Cells("Lieferant").Value = "IDS" Then initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value)
+                            Select Case aktLieferant
+                                Case "IDS" : initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value)
+                            Case "ALLE"
+                                If dgvLFRechnung.Columns.Contains("Lieferant") AndAlso dgvLFRechnung.SelectedRows(0).Cells("Lieferant").Value = "IDS" Then
+                                    initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value)
+                                Else
+                                    dgvDetails.Visible = False
+                                End If
                         End Select
 
+
+
                     Else
 
-                        dgvDetails.Visible = False
+                            dgvDetails.Visible = False
+                        End If
+
+
                     End If
-
-
-                End If
             Catch ex As Exception
                 'Neuer eintrag
                 MsgBox(ex.Message & ex.StackTrace)