Fakt, ustva, frmMitarbeiter

SDL/USTV/usrCntlUSTV.vb

@@ -1,4 +1,5 @@
 Imports System.ComponentModel
+Imports com.sun.xml.internal.bind.v2.model.core
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -317,7 +318,21 @@ Public Class usrCntlUSTV
 
 
     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        cProgramFunctions.genExcelFromDGV_NEW(dgvUSTV, True)
+
+
+        Dim dtNew As New DataTable
+        dtNew = TryCast(dgvUSTV.DataSource, DataTable)
+
+        If dtNew.Rows.Count > 0 Then
+
+            For Each col As DataColumn In dtNew.Columns
+                col.ColumnName = col.ColumnName.Replace("UStVAn_", "")
+            Next
+
+            cProgramFunctions.genExcelFromDT_NEW(dtNew, {"J1:N" & (dtNew.Rows.Count + 1)},,,,, True)
+        End If
+
+
     End Sub
 
     Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click