Dim datagridview_select As String = ""
        Dim sep As String = String.Empty
        If DataGridView1.SelectedRows.Count > 0 Then
            For Each dgvr As DataGridViewRow In DataGridView1.SelectedRows
                Dim v As String = dgvr.Cells(0).Value
                If v <> "" Then
                    datagridview_select &= sep & v
                    sep = ","
                End If
            Next
        End If
        Return datagridview_select

________
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