Dim f_frmAdresseSuchen As New frmAdresseSuchen
            Using frmAdresseSuchen
                f_frmAdresseSuchen.nclsAdresseSuchen = c_clsAdresseSuchen
                f_frmAdresseSuchen.SetAdressUebergabeNurAktive()
                If f_frmAdresseSuchen.ShowDialog() = _
                  Windows.Forms.DialogResult.OK Then
                    dgvAuswahlEinzel.SelectedRows(0).Cells("AdressID").Value = _
                    c_clsAdresseSuchen.AdressID
                    dgvAuswahlEinzel.SelectedRows(0).Cells( _
                    "Kurzbezeichnung").Value = c_clsAdresseSuchen.Name
                    dgvAuswahlEinzel.SelectedRows(0).Cells("Anzahl").Value = 1
                    dgvAuswahlEinzel.Rows.Insert(dgvAuswahlEinzel.RowCount)
                End If
            End Using

dgvAuswahlEinzel.Rows.Insert(dgvAuswahlEinzel.RowCount - 1)

dgvAuswahlEinzel.AllowUserToAddRows = False

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist