diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index a04738c..c08d395 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -674,6 +674,12 @@ Partial Class CustomsAviso
             txt_Empfaenger_M.Text = ""
             txt_KdNrAuftrag_M.Text = ""
             txt_LKWNr_M.Text = ""
+            Dim erster = New Date(Now().Year, Now().Month, 1)
+            pickdate1.Text = erster.Day.ToString + "." + erster.Month.ToString + "." + erster.Year.ToString
+            pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+            datevon = Nothing
+            datebis = Nothing
+            dt = Nothing
         ElseIf String.IsNullOrEmpty(txt_Absender.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False Or String.IsNullOrEmpty(txt_LKWNr.Text) = False Or rbt_Alle.Checked = True Or rbt_Ankunft.Checked = True Or rbt_Erf.Checked = True Or rbt_Freig.Checked = True Or rbt_Vorb.Checked = True Or rbt_Vorg.Checked = True Then
             'Desktop
             rbt_Alle.Checked = True
@@ -692,13 +698,14 @@ Partial Class CustomsAviso
             txt_Empfaenger.Text = ""
             txt_KdNrAuftrag.Text = ""
             txt_LKWNr.Text = ""
+            Dim erster = New Date(Now().Year, Now().Month, 1)
+            pickdate1.Text = erster.Day.ToString + "." + erster.Month.ToString + "." + erster.Year.ToString
+            pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+            datevon = Nothing
+            datebis = Nothing
+            dt = Nothing
         End If
-        Dim erster = New Date(Now().Year, Now().Month, 1)
-        pickdate1.Text = erster.Day.ToString + "." + erster.Month.ToString + "." + erster.Year.ToString
-        pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
-        datevon = Nothing
-        datebis = Nothing
-        dt = Nothing
+
     End Sub
 
     Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)