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