'Überschriften aus Datagridview übernehmen
        For col As Integer = 0 To strdgv.Columns.Count - 1
 
            'Hinweise:
            '1. xlApp wurde weiter oben definiert: 
            '   Dim xlApp = CType(CreateObject("Excel.Application"), 
            ' Excel.Application)
            '2. strDgv = Variable für das Datagridview, wird an die Sub 
            ' übergeben
            '   ByVal strdgv As DataGridView
 
            'Problem: folgende beiden Zeilen funktionieren nur ohne Option 
            ' Strict On - wie muss der korrekte Code lauten?
            xlApp.Cells(intZeileStart - 1, col + intSpalteStart).value = _
              strdgv.Columns.Item(col).HeaderText
            xlApp.Cells(intZeileStart - 1, col + intSpalteStart).interior.color _
            = RGB(227, 247, 255) 'hellblau
        Next

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)