Dim Person As String
 
    ' Start Excel
    On Error Resume Next
    If IsNull(Excel) Then
      Set Excel = New Excel.Application 'los
     Else
      Excel.Quit
      Set Excel = New Excel.Application 'nochmal neu
    End If
 
    Excel.Visible = False
 
    Set Mappe = Excel.Workbooks.Add
    Set Blatt = Mappe.Worksheets.Add
 
    Dim ID As Long
 
    'Spaltenkopf erstellen
    With Blatt
 
        .Cells(1, 1).Value = "Index"
        .Cells(1, 2).Value = "Name"
        .Cells(1, 3).Value = "Vorname"
        .Cells(1, 4).Value = "Institution"
        .Cells(1, 5).Value = "Straße, Nr"
        .Cells(1, 6).Value = "Ort"
        .Range("A1:G1").Font.Bold = True
 
    End With
 
    For i = 1 To frmDetailansicht.Grid1.Rows
 
        ID = frmDetailansicht.Grid1.ListItems(i).CellText(1)
        Person = Titel & Nachname(ID)
 
        Blatt.Cells(i + 1, 1).Value = ID
        Blatt.Cells(i + 1, 2).Value = Person
        Blatt.Cells(i + 1, 3).Value = Vorname(ID)
        Blatt.Cells(i + 1, 4).Value = Institution(ID)
        Blatt.Cells(i + 1, 5).Value = Straße
        Blatt.Cells(i + 1, 6).Value = Ort
 
    Next i
 
    Blatt.Range(Blatt.Cells(1, 1), Blatt.Cells(5, 13)).Columns.AutoFit
 
    Excel.Visible = True