Gesamtsicherheiten_CSVExport

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -254,6 +254,7 @@ Public Class frmGesamtsicherheitenMenuNEU
                         'in2 = """" & firstin & """" & ";"
                         in2 = firstin & ";"
                         out &= Replace(in2, vbCrLf, "##vbCrLf##")
+                        out = Replace(out, "€", "")
                     Catch ex As Exception
                         out &= ""
                     End Try
@@ -429,4 +430,7 @@ Public Class frmGesamtsicherheitenMenuNEU
 
     End Function
 
+    Private Sub ExportCSVToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles ExportCSVToolStripMenuItem.Click
+        csvexport(dgvListe)
+    End Sub
 End Class