Tekst vervangen d.m.v. VBA

Robert Smidt · 21 aug 2017

Beste Helpmij'ers,

Ik heb een code opgenomen die het uiteindelijk niet doet. Het is de bedoeling dat binnen een bereik WAAR gewijzigd dient te worden in ONWAAR.

Code:

Sub Uitvinken()
'
' Uitvinken Macro
    Range("J2:LI9").Select
    Selection.Replace What:="WAAR", Replacement:="ONWAAR", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("B4").Select
End Sub

Wat heb ik niet goed gedaan?

Alvast hartelijk dank.

Robert

OctaFish · 21 aug 2017

Doe er eens een voorbeeldje bij, dat kijkt wat makkelijker.

E v R · 21 aug 2017

en zo?

Code:

Selection.Replace What:=TRUE, Replacement:=FALSE, Look...

edmoor · 21 aug 2017

Inderdaad. De tekst WAAR en ONWAAR in een cel zijn geen woorden maar waarden die staan voor de booleans True en False.
Dit is dan voldoende:

Code:

Sub Uitvinken()
'
' Uitvinken Macro

    Range("J2:LI9").Replace What:=True, Replacement:=False
    Range("B4").Select
End Sub

Robert Smidt · 22 aug 2017

De code werkt perfect allemaal heel erg bedankt voor het meedenken.

snb · 22 aug 2017

of

Code:

Sub M_snb()
  [J2:LI9]= [Not(J2:LI9)]
End Sub

Tekst vervangen d.m.v. VBA

Robert Smidt

Gebruiker

OctaFish

Verenigingslid

E v R

Terugkerende gebruiker

edmoor

Inventaris

Robert Smidt

Gebruiker

snb

Verenigingslid

Nieuwste berichten

Wij waarderen jouw privacy