VBA zoeken en vervangen

[Dennisjuhh]

Hoi,

Wat doe ik fout=) Hij geeft bij foutopsporing steeds aan dat "with selection. find" fout is.

Sub Knop4_Klikken()
    [B] With Selection.Find[/B]
        .Text = ","
        .Replacement.Text = InputBox(".")
        .Execute Replace:=wdReplaceAll
    End With
End Sub

 

[MDN111]

Ja vraag staat bij "Excel". Dus ik vermoed dat Selection op een aantal geselecteerde cellen slaat.
Je code is blijkbaar alleen geldig in Word, zie http://msdn.microsoft.com/en-us/library/office/aa211953(v=office.11).aspx
Voor Excel, zie http://msdn.microsoft.com/en-us/library/office/ff194086.aspx

Grtz,
MDN111.