• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Tekst zoeken in range met vaste Naam

Status
Niet open voor verdere reacties.
H

HJ1

Gebruiker
Lid geworden
3 sep 2021
Berichten
73
Ik ben een aantal vaste groepen gedefinieerd,
"groep1" : cellen (L13:L90)
"groep2" : cellen (O13:O90)

Scenario 1
Indien een vaste waarde omschrijving in deze range voor komt moet er Msgbox uitgevoerd worden.
Alleen nu kijkt ie alleen naar cel L13 ipv de gehele range in 1 keer. Voorkeur gaat niet uit naar For Each cell ..... want als de vaste waarde vaker voor komt krijg je ook tig die msgbox.

Code: 
Range("groep1").Select
tekst = Active.Range
If InStr(tekst, "FIN") > 0 Then
MsgBox "LET OP: actie 1"
Else
End If


Scenario 2
Nu heb ik één voorwaarde maar daarna zal ik nog één moeten creëren voor zoeken naar 2 voorwaarden in beide groepen.
Er moet een msgbox komen indien waarde "FIN" in "groep1" staat "BET" in "groep2"

Code: 
Range("groep1").Select
tekst = Active.Range

Range("groep2").Select
tekst2 = Active.Range

If InStr(tekst, "FIN") > 0 AND InStr(tekst, "BET") > 0 Then
MsgBox "LET OP: actie 2"
Else
End If
 
als verder niet hoeft worden gekeken wáár in het bereik deze waarden staan.
Dan zo:

Code: 
Sub Scenario1()

If WorksheetFunction.CountIf(Range("groep1"), "FIN") > 0 Then
    MsgBox "LET OP: actie 1"
End If
End Sub



Sub Scenario2()

If WorksheetFunction.CountIf(Range("groep1"), "FIN") > 0 And WorksheetFunction.CountIf(Range("groep2"), "BET") > 0 Then
    MsgBox "LET OP: actie 2"
End If
End Sub
 
Werkt nog niet helemaal, wel wanneer het veld uniek is met de opgegeven waarde FIN of REL maar het is een onderdeel van de inhoud van het veld.
Ik heb een voorbeeld toegevoegd.
 

Bijlagen

  • 04 zoeken in range.xlsm
    14,5 KB · Weergaven: 17
zet een * om de zoekwaarde heen

Code: 
Sub Scenario1A()

If WorksheetFunction.CountIf(Range("groep1"), "*FIN*") > 0 Then
    MsgBox "LET OP: actie 1"
End If
End Sub
 
If not range("L13:L90").find("x") is nothing then msgbox "snb"
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan