Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Correcte VBA-code gezocht om tekst in 1 kolom te vervangen  (gelezen 615 keer)

0 leden en 1 gast bekijken dit topic.

Offline Temmerman_Diego

  • Ervaren lid
  • ***
  • Berichten: 311
  • Geslacht: Man
  • Don Diego
Correcte VBA-code gezocht om tekst in 1 kolom te vervangen
« Gepost op: 15 juni 2022, 13:51:19 »
Ik heb een Exceltabel die in de kolom T de waardes ONWAAR of WAAR bevat.
Indien de waarde ONWAAR is moet deze omgezet worden naar blanco
Indien de waarde WAAR is moet deze omgezet worden naar JA

Ik heb zelf geprobeerd met onderstaande code, maar geen enkele werkt... Wie kan helpen a.u.b.

' ONWAAR vervangen
' WERKT NIET
    Columns("T:T").Select
    Selection.Replace What:="ONWAAR", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="WAAR", Replacement:="JA", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
'
' WERKT NIET
    Worksheets("Brochurecontrole").Columns("T").Replace _
    What:="ONWAAR", Replacement:="", _
    SearchOrder:=xlByColumns, MatchCase:=True
    Worksheets("Brochurecontrole").Columns("T").Replace _
    What:="WAAR", Replacement:="JA", _
    SearchOrder:=xlByColumns, MatchCase:=True
'
'WERKT NIET
    Range("T:T").Select
    Selection.Replace What:="ONWAAR", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:="WAAR", Replacement:="JA", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

Alvast dank!
Lukt niet wegens ongeldige klasse ???

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Correcte VBA-code gezocht om tekst in 1 kolom te vervangen
« Reactie #1 Gepost op: 15 juni 2022, 14:08:15 »
Temmerman_Diego, waarom doe je dit niet gelijk met de formule die je waarschijnlijk al in die cellen hebt staan?

Als voorbeeld deze...
=IF(A1=10;"JA";"")Deze formule zou in cel B1 kunnen staan die checkt of de waarde in cel A1 10 is. Als dat zo is, geeft de formule "JA" terug. Zo niet, dan wordt er niets getoond. Ofwel, waarom met VBA???

En ALS dat moet, dan graag je document als bijlage meesturen zodat de helpers kunnen zien hoe die waarde bij jou in kolom T wordt bepaald.
______________________________

Groet, Leo

Offline popipipo

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 316
Re: Correcte VBA-code gezocht om tekst in 1 kolom te vervangen
« Reactie #2 Gepost op: 15 juni 2022, 17:53:03 »
VBA werkt in het engels.
Misschien moet je TRUE gebruiken ipv "WAAR" en FALSE ipv "ONWAAR" 


Willem
Hoe meer je weet hoe meer je vergeet.
Hoe meer je vergeet hoe minder je weet.
Hoe minder je weet hoe minder je vergeet.
Hoe minder je vergeet hoe meer je weet.

Offline Temmerman_Diego

  • Ervaren lid
  • ***
  • Berichten: 311
  • Geslacht: Man
  • Don Diego
Re: Correcte VBA-code gezocht om tekst in 1 kolom te vervangen
« Reactie #3 Gepost op: 16 juni 2022, 11:26:24 »
Dit is inderdaad de oplossing, waarvoor hartelijk dank!
Lukt niet wegens ongeldige klasse ???

 


www.combell.com