Veranderen van de titel in een stukje XML

[EddyK]

Checkbox?
Ik zie geen checkbox in Test3.xlsm.

Hierbij de nieuwe versie.

 

[alphamax]

' Cleanliness grade
Private Sub CheckBox4_Click()
    If CheckBox4 Then
        TextBox2.Text = Replace(TextBox2, "</procedure>", Sheets("Sections").Cells(5, 3) & "</procedure>")
    Else
        TextBox2.Text = Replace(TextBox2, Sheets("Sections").Cells(5, 3) & "</procedure>", "</procedure>")
    End If
End Sub

Voorwaarde is wel dat in tabblad "Sections" in kolom C, zuivere tekst staat (dus zonder verborgen tekens, enters, word wraps etc.)

 

[EddyK]

Super. Dank je. :thumb: