Public ds As New DataSet
    Public dt_BLAS As New DataTable("DataTable_BLAS")
    Public dt_SLND As New DataTable("DataTable_SLND")
 
    Public Sub ComboBoxDGV_einfügen_BLAS()
 
        With dt_BLAS
            .Columns.Add("Country", GetType(String))
            .Columns.Add("Company", GetType(String))
            .Columns.Add("Debitor", GetType(String))
        End With
 
        With Form_PlanningGuide.DataGridView_BLAS
            .AutoGenerateColumns = True
            'Bindung
            .DataSource = dt_BLAS
            'For i As Integer = 0 To dt_BLAS.Columns.Count - 1
            For i As Integer = 2 To 2
                'neue ComboBoxColumn erstellen
                Dim cbc As New DataGridViewComboBoxColumn
                'einrichten
                With cbc
                    '.DataPropertyName = dt_BLAS.Columns(i).ColumnName
                    .DisplayStyleForCurrentCellOnly = True
                    .DefaultCellStyle.Font = New Drawing.Font("Arial", 14)
                    .HeaderText = "Funktion/Status"
                    'Werte in Comboliste (die Werte in der Datenspalte 
                    'müssen in Liste enthalten sein)
                    'If i = 0 Then .Items.AddRange("a", "b", "c", "d")
                    .Items.AddRange("a", "b", "c", "d")
                    'If i = 1 Then .Items.AddRange(1, 2, 3, 4, 5, 6, 7)
                    'Alternative z.B. 
                    '.DisplayMember = .DataPropertyName
                    '.DataSource = dt_BLAS
                End With
                'Spalte anhängen
                .Columns.Add(cbc)
            Next i
        End With
 
        With dt_BLAS
            .Columns.Add("SP6", GetType(String))
            ' .Columns.Add("SP7", GetType(String))
        End With
 
    End Sub