Private Sub replaceAttributeValue()
 
        Dim xdoc = <?xml version="1.0" encoding="utf-8"?>
                   <ebooks>
                       <book name="Uwe Ukenings - Die Crux mit der Liste"
                           pfad="C:\Users\Robin\Desktop\Uwe Ukenings - Die Crux" & _
                             "mit der Liste.pdf"/>
                       <book name="RE11000034" _
                       pfad="C:\Users\Robin\Desktop\RE11000034.pdf"/>
                   </ebooks>
 
        Dim oldName = "Uwe Ukenings - Die Crux mit der Liste"
        Dim newName = "Uke Uwenings - Die Liste mit der Crux"
 
        ' Mit XmlDocument
        Dim xmlDoc As New XmlDocument
        xmlDoc.PreserveWhitespace = True
        xmlDoc.LoadXml(xdoc.ToString())
 
        xmlDoc.DocumentElement.SelectSingleNode("book[@name='" & oldName & _
          "']/@name").Value = newName
        Debug.WriteLine(xmlDoc.OuterXml)
 
        ' Mit XDocument (xdoc ist schon ein XDocument)
        Dim attr = (From elem In xdoc.<ebooks>.<book> Where elem.@name = _
          oldName).First.Attribute("name")
        attr.Value = newName
        Debug.WriteLine(xdoc.ToString())
 
        ' oder auch zB
        xdoc.Root.<book>.Where(Function(x) x.@name = oldName).First.Attribute( _
          "name").Value = newName
 
    End Sub

________
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