diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb
index eb9b364..40b38a8 100644
--- a/Customers/LKWs.aspx.vb
+++ b/Customers/LKWs.aspx.vb
@@ -106,9 +106,9 @@ Partial Class LKWS
                 Else
                     Stringtemp = String.Empty
                 End If
-                For Each l3 In list3
-                    list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
-                Next
+
+                list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
+
                 Dim strtemp2 As String = String.Empty
                 If String.IsNullOrEmpty(l1.Nationalität) = True Then
                     strtemp2 = "Keine Angabe"
@@ -119,7 +119,7 @@ Partial Class LKWS
                 For Each l4 In list3
                     strarrtemp = String.Join("-", l4)
                 Next
-                tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
+                tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
             Next
             cnt += 1
             tbl_sidemenue.Rows.Add(tr1)
@@ -336,9 +336,7 @@ Partial Class LKWS
                 Else
                     Stringtemp_M = String.Empty
                 End If
-                For Each l4 In list3
-                    list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
-                Next
+                list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
             Next
             Dim strtemp2 As String = String.Empty
             If String.IsNullOrEmpty(l3.Nationalität) Then
@@ -347,7 +345,7 @@ Partial Class LKWS
                 strtemp2 = l3.Nationalität
             End If
             Dim str2temptemp = String.Empty
-            For Each Ltenp In list3
+            For Each Ltenp In list2
                 str2temptemp = String.Join("-", Ltenp)
             Next
             tr1_M.Attributes.Add("OnClick", "Javascript:TableRowClick_M(""" & str2temptemp & """,""" & l3.KfzKennzeichen & """,""" & strtemp2 & """)")