diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index e455c99..3fbffac 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -41,15 +41,17 @@ Partial Class Kundenbereich_Default
     Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell)
         Dim blau As Drawing.Color = Drawing.Color.LightBlue
         Dim white As Drawing.Color = Drawing.Color.White
-
+        Dim schwarz As Drawing.Color = Drawing.Color.Black
 
         Dim darkgrau As Drawing.Color = Drawing.Color.DarkGray
         Dim darkblue = Drawing.Color.FromArgb(4, 51, 129)
         tr.BackColor = blau
         If t1.Text = "" Then
             t1.BackColor = blau
+            t1.ForeColor = schwarz
         Else
             t1.BackColor = blau
+            t1.ForeColor = schwarz
         End If
         If t2.Text = "Erfasst" Then
             t2.BackColor = Drawing.Color.DarkGreen
@@ -64,43 +66,56 @@ Partial Class Kundenbereich_Default
             t2.BackColor = Drawing.Color.OldLace
             t2.ForeColor = white
         ElseIf t2.Text = "Vorgeschrieben" Then
-            t2.BackColor = Drawing.Color.DarkGray
+            t2.BackColor = Drawing.Color.Black
             t2.ForeColor = white
         ElseIf t2.Text = "Undefiniert" Then
-            t2.BackColor = Drawing.Color.Black
+            t2.BackColor = Drawing.Color.DarkGray
             t2.ForeColor = white
         Else
             t2.BackColor = blau
+            t2.ForeColor = schwarz
         End If
         If t3.Text = "" Then
             t3.BackColor = blau
+            t3.ForeColor = schwarz
         Else
             t3.BackColor = blau
+            t3.ForeColor = schwarz
         End If
         If t4.Text = "" Then
             t4.BackColor = blau
+            t4.ForeColor = schwarz
         Else
             t4.BackColor = blau
+            t4.ForeColor = schwarz
         End If
         If t5.Text = "" Then
             t5.BackColor = blau
+            t5.ForeColor = schwarz
         Else
             t5.BackColor = blau
+            t5.ForeColor = schwarz
         End If
         If t6.Text = "" Then
             t6.BackColor = blau
+            t6.ForeColor = schwarz
         Else
             t6.BackColor = blau
+            t6.ForeColor = schwarz
         End If
         If t7.Text = "" Then
             t7.BackColor = blau
+            t7.ForeColor = schwarz
         Else
             t7.BackColor = blau
+            t7.ForeColor = schwarz
         End If
         If t8.Text = "" Then
             t8.BackColor = blau
+            t8.ForeColor = schwarz
         Else
             t8.BackColor = blau
+            t8.ForeColor = schwarz
         End If
         th1.BackColor = darkblue
         th1.ForeColor = white