For Each auswahl As String In CheckedListBox2.CheckedItems
            For Each spalte As DataColumn In tableErgebnisse.Columns
                If Not spalte.ColumnName = auswahl And Not spalte.ColumnName = _
                  "Rechnung_ID" Then
                    tableErgebnisse.Columns.Remove(spalte)
                End If
            Next
 Next