Vaste waarde uit een vaste cel verwijderen

[ivoexcel]

Hallo Allemaal,

Hoe kan met VBA een vaste waarde verwijderen uit een cel.

Voorbeeld:

In cel A1 staat "Een voorbeeld". Door het draaien van de macro wordt "Een" weggehaald waardoor er in cel A1 staat "Voorbeeld".

Alvast bedankt!

 

[SjonR]

zo?

Sub SjonR()
For Each cl In Range("A1:A10")
    If Left(cl, 4) = "Een " Then cl.Value = Right(cl, Len(cl) - 4)
Next
End Sub

 

[edmoor]

Of:

For Each cl In Range("A1:A10")
    If Left(cl, 4) = "Een " Then cl.Value = Mid(cl.Value, 5)
Next

 

[ivoexcel]

De VBA hoeft aleen uit Cel A1 de vaste waarde ''Een" te verwijderen. Hierbij wil ik er niet vanuit gaan dat het perse vooraan staat. Dus de Links/Rechts formule is niet echt geschikt.

 

[edmoor]

Dan maak je er dit van:

For Each cl In Range("A1:A10")
    Select Case Left(cl, 4)
        Case "Een ": cl.Value = Replace(cl.Value, "Een ", "")
        Case "een ": cl.Value = Replace(cl.Value, "een ", "")
    End Select
Next

 

[ivoexcel]

Dat is het nog met link/rechts. Als er nu staat "Voorbeeld Een" wordt het niet verwijderd.

Ik zoek iets in de richting van: If Range("A1") bevat "Een" then delete "Een"

 

[edmoor]

Zie aangepaste #5.

 

[SjonR]

zo:

[A1] = Replace([A1], "Een", "")

 

[ivoexcel]

Dankjewel SjonR dat is hem!