Private Sub EintragMakieren()
 
 
    Dim nRow As Long
    extras = Split(frmKFZ.sevText(57), ",")
 
    For Each eintrag In extras
 
        nRow = sevGrid1.FindItem(eintrag, 1, 1, False)
        If nRow = 0 Then
            sevGrid1.AddItem eintrag
            Else
            sevGrid1.SelRow nRow
        End If
 
    Next
 
 
 
End Sub