Public Auswahlspeicher(,) As String
 
Sub Excel_füllen
        Dim xlsApp As Excel.Application
        Dim xlsBook As Excel.Workbook
        Dim xlsSheetTD As Excel.Worksheet
        Dim xlsRange As Excel.Range
 
        xlsApp = CreateObject("Excel.Application")
        xlsBook = xlsApp.Workbooks.Add
        xlsSheetTD = xlsBook.ActiveSheet
       Auswahlspeicher_füllen
 
        xlsRange = xlsSheetTD.Range(xlsSheetTD.Cells(2, 1), xlsSheetTD.Cells( _
          GesamtSpalten, lvAuswahl.Items.Count + 1))
        xlsRange.Value = Auswahlspeicher
 
End Sub