Private Sub format_dgvMC(ByRef dgv As DataGridView, ByRef datadgv As _
      DataTable, ByRef datacombocol As DataTable)
        'Datagrid Strasse formatieren
        Dim position As Integer
        Dim combocolumn As DataGridViewComboBoxColumn
        With dgv
            .DataSource = datadgv
            .ReadOnly = False
            .RowHeadersWidth = 25
            .ColumnHeadersVisible = True
            .AllowUserToAddRows = True
            .MultiSelect = False
            .AllowUserToResizeColumns = False
            .AllowUserToResizeRows = False
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
            .SelectionMode = DataGridViewSelectionMode.CellSelect
            .AutoSizeRowsMode = _
              DataGridViewAutoSizeRowsMode.AllCellsExceptHeaders
            .AlternatingRowsDefaultCellStyle.BackColor = Color.LightSkyBlue
            'Löschen
            position = .Columns("Bez").Index
            .Columns.RemoveAt(position)
            If .Columns.Count = 1 Then
                'Neue Comboboxspalte erzeugen
                combocolumn = New DataGridViewComboBoxColumn
                With combocolumn
                    .DataSource = datacombocol
                    .DisplayMember = "Bez"
                    .ValueMember = "Code"
                    .DataPropertyName = "Code"
                    .DisplayIndex = 1
                    .DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                    .HeaderText = "Bezeichnung"
                    .Name = "Bez"
                End With
                .Columns.Add(combocolumn)
            End If
        End With
    End Sub