*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Woorden uit tekst markeren  (gelezen 1598 keer)

0 leden en 1 gast bekijken dit topic.

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 317
  • Geslacht: Man
  • Oplossing.be
Woorden uit tekst markeren
« Gepost op: 21 oktober 2022, 09:55:37 »
Goedemorgen,

Dank voor code(s) uit voorgaande vraag.

Heb een goed werkende code "e_nummers()"
Kan daar een variant op?

Zijnde code "markeer()"
Bij het selecteren uit kolom B en uitvoeren van de code is in dit geval "E621
Komt van xHStr = "E621"

1) Kunnen we dit doen Met meerdere vb. E621, E120, E301, etc.
En/of
2) Uit de selectie lijst waarbij nu E300, E621 met X zijn geselecteerd

3) Kan de geselecteerde tekst (rood) ook Vet?

Alvast bedankt!
Groeten,
Georgyboy
Gelogd

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Woorden uit tekst markeren
« Reactie #1 Gepost op: 21 oktober 2022, 10:48:25 »
Dag Georgyboy,

Je kan dat ook in orde krijgen zonder arrays en splits, hoor. Hierbij al een stukje van de oplossing (sub Molly toegevoegd). Ik heb in het voorbeeld B3 een beetje vervalst (er meermaals E621 in gezet als bewijs dat het werkt) en enkel die cel met de code behandeld.
Ik moet dadelijk de deur uit maar door daar nog iets omheen te bouwen (één of twee lussen naargelang de gewenste werking) krijg je dat misschien zelf in orde?

Mvg,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Woorden uit tekst markeren
« Reactie #2 Gepost op: 21 oktober 2022, 14:41:16 »
Hallo Georgyboy,

Ziezo, al terug van weggeweest en het vlug verder bekeken. In de nieuwe bijlage hoef je niets te selecteren in kolom B (de ganse lijst wordt gedaan, is waarschijnlijk toch de bedoeling?).
Alle met x (of X  ;)) aangeduide E-nrs worden rood en vet.
Voor de duidelijkheid heb ik de macro in een tweede module gezet.

Mvg,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 317
  • Geslacht: Man
  • Oplossing.be
Re: Woorden uit tekst markeren
« Reactie #3 Gepost op: 21 oktober 2022, 15:48:13 »
Helemaal naar wens!  _/-\o_
Top!!!  \o/

Sorry dat ik er zelf niet in slaag en steeds vragen moet stellen,  ;)
hoop dat ik niet té veel vragen stel naar oplossingen.

Groeten,
Georgyboy
Gelogd

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Woorden uit tekst markeren
« Reactie #4 Gepost op: 22 oktober 2022, 08:55:31 »
Heel graag gedaan, Georgyboy, en dank voor de feedback.
En maak je vooral geen zorgen over het aantal vragen. Wie zoals jij (en de meeste anderen) de geboden hulp oprecht waardeert zal wel altijd op ons kunnen blijven rekenen.

Mvg,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 317
  • Geslacht: Man
  • Oplossing.be
Re: Woorden uit tekst markeren
« Reactie #5 Gepost op: 22 oktober 2022, 09:42:05 »
Goedemorgen,

Ben steeds blij met de geboden hulp en leer er steeds iets van, al was het maar 1 codewoord.
Jouw geboden oplossing vind ik zo mooi en vooral magisch, met 1 klik een uitkomst bieden  _/-\o_

Zelf vind ik het frustrerend dat ik het zelf nog niet kan, maak de "klik" nog niet.
Probeer van jou code weer wat stukjes te begrijpen.

Hoop dat deze vragen anderen kan helpen en boeiend blijven voor de "oplossers".

Nogmaals dank MollyVH en ALLE helpers  :thumbsup:

Groeten,
Georgyboy
Gelogd

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.226
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Woorden uit tekst markeren
« Reactie #6 Gepost op: 22 oktober 2022, 11:25:39 »
Hey Georgyboy,

Helpen is onze hobby, dus al er geen vragen worden gesteld kunnen wij onze hobby niet beoefenen  ;D ;D ;D

Doe dus gerust verder  :thumbsup:

@MollyVH,

Ik wou toch even je macro bekijken, en natuurlijk top  \o/
Maar, zou het qua werkzaamheid niet nuttig zijn indien de kleuring en vet van de E-nummers in kolom B kan ongedaan gemaakt worden als je de X weghaalt in kolom I ??

Groeten,

:) SoftAid :)             
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 317
  • Geslacht: Man
  • Oplossing.be
Re: Woorden uit tekst markeren
« Reactie #7 Gepost op: 22 oktober 2022, 11:37:13 »
Kleine code gemaakt om de markering te wissen :)

beter maken mag altijd  :) :)


Sub wis()


With Range("B:B").EntireRow
    .Font.Bold = False
    .Font.ColorIndex = False
End With

End Sub

Gelogd

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Woorden uit tekst markeren
« Reactie #8 Gepost op: 22 oktober 2022, 11:52:07 »
@ SoftAid,
Citaat
zou het qua werkzaamheid niet nuttig zijn indien de kleuring en vet van de E-nummers in kolom B kan ongedaan gemaakt worden
Dus ook vragen beantwoorden die NIET worden gesteld ?  :D
Dan zal onze hobby zeker en vast niet in het gedrang komen  :)
Maar je hebt gelijk, dat kan absoluut nuttig zijn, 't is trouwens al door Georgyboy opgelost :thumbsup:

@ Georgyboy,
Veel winst is er in jouw code niet meer te boeken. Mocht je het echt nog korter willen:
Code: [Selecteer]
With Columns(2).Font
    .Bold = 0
    .ColorIndex = 0
End With

Mvg,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 317
  • Geslacht: Man
  • Oplossing.be
Re: Woorden uit tekst markeren
« Reactie #9 Gepost op: 22 oktober 2022, 19:00:01 »
Dankjewel,
Ben preus lik fjirtig' of 'zo fier als een pauw, met mijn eigen kleine code.
En nog blijer met de kortere code.  ;)
Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com