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