diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb
index 04c2202..9cf2623 100644
--- a/Customers/LKWs.aspx.vb
+++ b/Customers/LKWs.aspx.vb
@@ -28,15 +28,18 @@ Partial Class LKWS
     Protected Sub btn_alle_Click(sender As Object, e As EventArgs)
         'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(Kdnrtext)
         MsgBox("Test1")
+        Dim cnt As Integer = 0
         list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
         Dim tbl_sidemenue As Table = FindControl("tbl_sidemenue")
         Dim tblhrow As TableHeaderRow = New TableHeaderRow()
         Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
         Dim tblheader_Cellnat As TableHeaderCell = FindControl("tbhc_Nat")
+        Dim tblheader_Cellverk As TableHeaderCell = FindControl("tbhc_Verk")
         Dim tblheader_cell_KZ As TableHeaderCell = FindControl("tblhc_Kz")
         Dim tblheader_cell_Verm As TableHeaderCell = FindControl("tblhc_Verm")
         tblhrow.Cells.Add(tblheader_Cell1)
         tblhrow.Cells.Add(tblheader_Cellnat)
+        tblhrow.Cells.Add(tblheader_Cellverk)
         tblhrow.Cells.Add(tblheader_cell_KZ)
         tblhrow.Cells.Add(tblheader_cell_Verm)
 
@@ -51,7 +54,7 @@ Partial Class LKWS
             Dim tc_Verk As TableCell = New TableCell()
             Dim tc_KZ_An As TableCell = New TableCell()
             Dim tc_Vermerk As TableCell = New TableCell()
-            initcells(tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk)
+
             tc_KfzKennz.Text = l1.KfzKennzeichen
             tr1.Cells.Add(tc_KfzKennz)
             tc_Nationalitaet.Text = String.Empty
@@ -64,13 +67,28 @@ Partial Class LKWS
             tr1.Cells.Add(tc_KZ_An)
             tc_Vermerk.Text = l1.Vermerk.ToString
             tr1.Cells.Add(tc_Vermerk)
+            cnt += 1
+            initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
             tbl_sidemenue.Rows.Add(tr1)
         Next
         MsgBox("Test3")
     End Sub
 
-    Private Sub initcells(tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell)
+    Private Sub initcells(thr1 As TableHeaderRow, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell, countrows As Integer)
+        Dim res As Integer
+        tr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
+        th1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
+        th2.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
+        th3.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
+        th4.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
+        th5.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
 
+
+        If Math.DivRem(countrows, 2, res) = 0 Then
+
+        Else
+
+        End If
     End Sub
 
     Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs)
@@ -82,10 +100,12 @@ Partial Class LKWS
         Dim tblhrow As TableHeaderRow = New TableHeaderRow()
         Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
         Dim tblheader_Cellnat As TableHeaderCell = FindControl("tbhc_Nat")
+        Dim tblheader_Cellverk As TableHeaderCell = FindControl("tbhc_Verk")
         Dim tblheader_cell_KZ As TableHeaderCell = FindControl("tblhc_Kz")
         Dim tblheader_cell_Verm As TableHeaderCell = FindControl("tblhc_Verm")
         tblhrow.Cells.Add(tblheader_Cell1)
         tblhrow.Cells.Add(tblheader_Cellnat)
+        tblhrow.Cells.Add(tblheader_Cellverk)
         tblhrow.Cells.Add(tblheader_cell_KZ)
         tblhrow.Cells.Add(tblheader_cell_Verm)
 
@@ -93,6 +113,7 @@ Partial Class LKWS
         'tbl_sidemenue2.Rows.Clear()
         MsgBox("Test1")
         For Each l2 In list
+            Dim cnt As Integer = 0
             Dim tr2 As TableRow = New TableRow()
             Dim tc_KfzKennz As TableCell = New TableCell()
             Dim tc_Nationalitaet As TableCell = New TableCell()
@@ -110,8 +131,11 @@ Partial Class LKWS
             tc_KZ_An.Controls.Add(cb_Kz_An)
             tc_Vermerk.Text = l2.Vermerk.ToString
             tr2.Cells.Add(tc_Vermerk)
+
             'tr2.Attributes.Add("command", "getinfos")
+            initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblheader_Cellverk, tblheader_cell_KZ, tblheader_cell_Verm, tr2, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
             tbl_sidemenue2.Rows.Add(tr2)
+            cnt += 1
         Next
         MsgBox("Test2")
     End Sub