Dim dtbl As New System.Data.DataTable
 
With dtbl
     'Eine Spalte (Typ: String) und einige Testzeilen erstellen
     .Columns.Add("Testspalte", GetType(String))
     .Rows.Add("Finger weg")
     .Rows.Add("Such mich")
     .Rows.Add("Hau ab")
     .Rows.Add("Such mich auch")
 
     'Zeilen durchlaufen
     For r As Integer = 0 To .Rows.Count - 1
        If CType(.Rows(r).Item("Testspalte"), String).StartsWith("Such") Then
           'Ersetzung durchführen
           .Rows(r).Item("Testspalte") = "Hab Dich"
        End If
     Next r
End With

Zitat:

Was meinst Du mit "in einem DatagridView dargestellt" Gebunden?

'Datei Laden
    Private Sub LadenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles LadenToolStripMenuItem.Click
        'wenn OK geklickt wird
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            'Listbox leeren
            ListBox1.Items.Clear()
            'datensatz leeren
            DataSet1.Clear()
            'datagridview neu laden
            DataGridView1.Refresh()
            'XML aus dem Dialog öffnen als DataSet
            DataSet1.ReadXml(OpenFileDialog1.FileName)
            'Listbox einträge aus der Tabellenzahl der XML Datei zählen
            For i = 0 To DataSet1.Tables.Count - 1
                'Eintrag hinzu
                ListBox1.Items.Add(DataSet1.Tables(i).TableName)
            Next
        End If
    End Sub
 
 'dataGridview füllen
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        DataGridView1.DataSource = DataSet1.Tables(ListBox1.SelectedItem)
        'Spalten automatisch anpassen
        DataGridView1.AutoResizeColumns()
        var_zeilenzahl = Convert.ToString(DataGridView1.RowCount - 1)
        LabelZeilenZahl.Text = var_zeilenzahl
        var_spaltenzahl = Convert.ToString(DataGridView1.ColumnCount - 1)
        LabelSpaltenZahl.Text = var_spaltenzahl
    End Sub

If CType(.Rows(r).Item("Testspalte"), String).StartsWith("Such") Then
            'Ersetzung durchführen
            .Rows(r).Item("Testspalte") = .Rows(r).Item( _
              "Testspalte").ToString.Replace("Such", "Ersetz")
        End If

--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim dtbl As New System.Data.DataTable
        dtbl = Form1.DataSet1.Tables(Form1.ListBox1.SelectedItem)
        With dtbl
            For r As Double = 0 To .Rows.Count - 1
                If CType(.Rows(r).Item("P_ARTICLE_DESCR3"), String).StartsWith( _
                  "??_??@") Then
                    'Ersetzung durchführen
                    .Rows(r).Item("P_ARTICLE_DESCR3") = .Rows(r).Item( _
                      "P_ARTICLE_DESCR3").ToString.Replace("??_??@", "")
                End If
 
            Next r
        End With
 
 
    End Sub

CType(.Rows(r).Item("P_ARTICLE_DESCR3"), String)

--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein

Dim dtbl As New System.Data.DataTable
 
With dtbl
    .Columns.Add("Testspalte", GetType(String))
    .Columns(0).AllowDBNull = True  'Diese Spalte erlaubt fehlende Werte
    .Rows.Add("Finger weg")
    .Rows.Add("Suche mich")
    .Rows.Add("Hau ab")
    .Rows.Add(DBNull.Value)         'In dieser Zeile fehlt ein Wert
    .Rows.Add("Suche mich auch")
 
    Dim cellcontent As String
 
    For r As Integer = 0 To .Rows.Count - 1
        If Not IsDBNull(.Rows(r).Item("Testspalte")) Then
           cellcontent = DirectCast(.Rows(r).Item("Testspalte"), String)
           If cellcontent.StartsWith("Suche") Then
              cellcontent = Microsoft.VisualBasic.Replace _
              (cellcontent, "Suche", "Finde", 1, 1, CompareMethod.Text)
              .Rows(r).Item("Testspalte") = cellcontent
           End If
        End If
    Next r
End With