Dim table = New MigraDoc.DocumentObjectModel.Tables.Table()
            table.Borders.Width = 0.75

            Dim column = table.AddColumn(Unit.FromCentimeter(5))
            column.Format.Alignment = ParagraphAlignment.Left

            table.AddColumn(Unit.FromCentimeter(5))

            Dim row = table.AddRow()
            row.Shading.Color = Colors.AliceBlue
            Dim cell = row.Cells(0)
            cell.AddParagraph("Name")
            Dim cell1 = row.Cells(1)
            cell1.AddParagraph("Ersparnis mtl.")

            With ErgebnisFirma.ListeAN.CheckedItems
                ' Jede Zeile wird durchgegangen
                ' .SubItems(3) = Spalte 1 der Listview
                ' .SubItems(1) = Spalte 2 der Listview
                ' usw. ...
                For i As Integer = 0 To .Count - 1
                    paragraph7.AddFormattedText(CStr(.Item(i).SubItems(2).Text) & " " & CStr(.Item(i).SubItems(1).Text))
                    Dim row1 = table.AddRow()
                    Dim cell2 = row1.Cells(i)
                    cell2.AddParagraph((CStr(.Item(i).SubItems(2).Text) & " " & CStr(.Item(i).SubItems(1).Text)))
                    Dim cell3 = row1.Cells(i + 1)
                    cell3.AddParagraph((Format(CDbl(.Item(i).SubItems(4).Text), "C")))
                Next

                document.LastSection.Add(table)