diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx
index 755b60b..9e53dc3 100644
--- a/Customers/CustomsAviso.aspx
+++ b/Customers/CustomsAviso.aspx
@@ -108,10 +108,10 @@
                             <div class="col-12" id="cont4">
                             <div class="col-12" id="container2" style="margin-left:2px">                                                                     
                                             <asp:Label ID="lbl_von" runat="server" Text="Von:"></asp:Label>                                             
-                                            <asp:TextBox id="pickdate1" Type="Date" CssClass="classTarget" runat="server"></asp:TextBox>  
+                                            <asp:TextBox id="pickdate1" Type="Date" CssClass="classTarget" OnTextChanged="pickdate1_TextChanged" runat="server"></asp:TextBox>  
                                    
                                             <asp:Label ID="lbl_bis" runat="server" Text="Bis:"></asp:Label> 
-                                            <asp:TextBox id="pickdate2" Type="Date" CssClass="classTarget" runat="server"></asp:TextBox>
+                                            <asp:TextBox id="pickdate2" Type="Date" CssClass="classTarget" OnTextChanged="pickdate2_TextChanged" runat="server"></asp:TextBox>
                                          </div>                                    
                              <div id="Abstand"></div>  
                               <hr>
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index 6215f87..c810cf2 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -426,4 +426,17 @@ Partial Class Kundenbereich_Default
     Protected Sub Dropdownlst_Selection_Change(sender As Object, e As EventArgs)
 
     End Sub
+
+    Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)
+        Dim TB As TextBox = sender
+        If TB.Text = "" Then
+            TB.Attributes.Add("Border", "2px solid red")
+        Else
+            TB.Attributes.Add("Border", "None")
+        End If
+    End Sub
+
+    Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs)
+
+    End Sub
 End Class
\ No newline at end of file