Private Function EtoExcel() As Boolean
        EtoExcel = False
        Dim xls_Appl As Excel.Application               ' Excel Anwendung
        Dim xls_Mappe As Excel.Workbook                 ' Excel Arbeitsmappe ( 
        ' Datei)
        Dim xls_Blatt As Excel.Worksheet                ' Excel Arbeitsblatt ( 
        ' Tabelle)
        Dim zZ As Integer = 0
        Try
            xls_Appl = New Excel.Application                ' Instanz bilden
            xls_Appl.Visible = True                         ' Excel sichtbar
 
            xls_Mappe = xls_Appl.Workbooks.Add(1)           ' 1 Tabelle 
            ' hinzufügen
            xls_Blatt = xls_Mappe.Worksheets(1)             ' Diese Tabelle als 
            ' Blatt auswählen
 
            With xls_Blatt
                .Cells(1, 1).value = "Nr"
                .Cells(1, 2).value = "Gerätenamen"
                .Cells(1, 3).value = "Hinweis"
 
                For Each e_Item As x_RechnerEinzelLizenz In cls_x_ELList
                    zZ += 1
                    Dim searchRechner As String = UCase(e_Item._ELRechner)
                    Dim gefunden As excelInfo = clsExcelList.Where(Function(x) _
                      x._mExcel_Gerätenamen.Equals( _
                      searchRechner)).FirstOrDefault
 
                    If Not gefunden Is Nothing Then
                        .Cells(zZ + 1, 1).value = zZ
                        .Cells(zZ + 1, 2).Font.Bold = True
                        .Cells(zZ + 1, 2).value = e_Item._ELRechner
                        .Cells(zZ + 1, 3).value = gefunden._mExcel_Info
                    Else
                        .Cells(zZ + 1, 1).value = zZ
                        .Cells(zZ + 1, 2).Font.Bold = True
                    End If
                Next
                .Columns("A:A").ColumnWidth = 5.25
                .Columns("B:B").ColumnWidth = 11.75
                .Columns("C:C").ColumnWidth = 39.13
 
                .PageSetup.LeftHeader = "BITTE überprüfen!"
                .PageSetup.RightFooter = "erstellt: " & _
                  Environment.UserName.ToString & " / " & Now
 
            End With
        Catch ex As Exception
 
        End Try
        Return True
    End Function