Gesamtsicherheiten - Excelexport.

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -383,31 +383,34 @@ Public Class frmGesamtsicherheitenMenuNEU
 
     End Function
 
-    Private Sub ExportCSVToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles ExportCSVToolStripMenuItem.Click
+    Private Sub ExportCSVToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles ListeToolStripMenuItem.Click
 
         SDL.cProgramFunctions.genExcelFromDGV_NEW(dgvListe)
 
     End Sub
 
-    Private Sub ExportCSV2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportCSV2ToolStripMenuItem.Click
-
-        If dgvListe.Rows.Count > 0 Then
-            Dim list As New List(Of Integer)
-
-            For Each row As DataGridViewRow In dgvListe.Rows
-                list.Add(CInt(row.Cells("gs_gsnr").Value))
-
-
-            Next
-            Dim frm As New frmGesamtsicherheitenNEU
-
-            Dim datumVon As String = DateTimePicker1.Value.AddDays(-1)
-
-            frm.LoadDataTableSicherheitenForExport(list, datumVon, txtDatBis.Text)
-
-            SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten)
+    Private Sub ExportCSV2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReferenzlisteZollamtToolStripMenuItem.Click
 
+        If dgvListe.Rows.Count = 0 Then
+            MsgBox("keine Daten vorhanden!")
+            Exit Sub
         End If
+
+        Dim list As New List(Of Integer)
+
+        For Each row As DataGridViewRow In dgvListe.Rows
+            list.Add(CInt(row.Cells("gs_gsnr").Value))
+
+
+        Next
+        Dim frm As New frmGesamtsicherheitenNEU
+
+        Dim datumVon As String = DateTimePicker1.Value.AddDays(-1)
+
+        frm.LoadDataTableSicherheitenForExport(list, datumVon, txtDatBis.Text)
+
+        SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten)
+
     End Sub
 
     Private Sub chkOffen_CheckedChanged_1(sender As Object, e As EventArgs) Handles chkOffen.CheckedChanged
@@ -443,4 +446,6 @@ Public Class frmGesamtsicherheitenMenuNEU
         End Select
 
     End Sub
+
+
 End Class