Excel: controle op bepaalde waarde

[slpe]

Beste lezers,

Ik zit met een probleempje waarbij ik moet weten of in een cel bepaalde leestekens voorkomen.

Stel:
In cel A1 staat "C & A"
In cel B1 wil ik aangeven of in cel a een van de leestekens & of ë of ü enz voorkomt. Deze lijst met voorwaarden zijn er een stuk of 20. Dus als één van deze leestekens in de cel voorkomt moet Excel dat aangeven.

Wie kan mij helpen, want ik zit nu al een paar uur te zoeken, maar ik cirkel steeds in rondjes.

 

[edmoor]

Dat kan met een simpele functie in VBA:

Function ZoekTeken(ByVal Inhoud As String) As String
    Dim i As Integer, Teken As String
    ZoekTeken = ""
    For i = 1 To Len(Inhoud)
        Teken = Mid(Inhoud, i, 1)
        Select Case Teken
            Case "&", "ë", "ü"
            ZoekTeken = "Gevonden"
            Exit For
        End Select
    Next
End Function

Het rijtje waar nu de drie voorbeeld tekens in staan kun je zelf uitbreiden.
De functie plaats je in een module.
In B1 zet je dan =ZoekTeken(A1)

 

[slpe]

Helemaal top, dat werkt!

Kleine vraag, Ik gebruik dit om een aantal controles uit te voeren. Dus naast dit nog 5. Als de controle goed is zet ik 0,00 in de cel en wanneer er een fout is 1,00
Op die manier kan ik controleren of de som van alle checks > 0 is en kan ik dan kijken wat er fout is.

Nu zet hij de tekst erin, kan ik dat zomaar wijzigen in

Function ZoekTeken(ByVal Inhoud As String) As String
    Dim i As Integer, teken As String
    ZoekTeken = "0"
    For i = 1 To Len(Inhoud)
        teken = Mid(Inhoud, i, 1)
        Select Case teken
            Case "&", "ë", "ü", "ö"
            ZoekTeken = "1"
            
        End Select
    Next
End Function

 

[edmoor]

Dat kan en is maar een simpele wijziging in de code:

Function ZoekTeken(ByVal Inhoud As String) As Integer
    Dim i As Integer, Teken As String
    ZoekTeken = 0
    For i = 1 To Len(Inhoud)
        Teken = Mid(Inhoud, i, 1)
        Select Case Teken
            Case "&", "ë", "ü", "ö"
            ZoekTeken = 1
            Exit For
        End Select
    Next
End Function

 

[slpe]

Beste Edmoor,

Onwijs bedankt voor je antwoord. Hij zet nu netjes een 1 neer als de waarde voldoet. In mijn Excel sheet ziet hij hem alleen nog niet als een getal dat wordt opgeteld.Is dat not ergens mee te geven?

 

[edmoor]

Hoe bedoel je?
Je kunt onderaan het bereik toch gewoon een SOM over het bereik doen?
Als dat dan groter dan 0 is dan is kennelijk ergens een teken gevonden waarop je controleert.
Zet anders even een voorbeeld documentje neer.

 

[slpe]

Ja dat is inderdaad makkelijker bijgaand het bestandje

Bekijk bijlage Voorbeeld tekenzoeken.xlsm

 

[edmoor]

Ik zie de fout al.
Je hebt niet alle wijzigingen in de macro gedaan.
Er staat nog:

Function ZoekTeken(ByVal Inhoud As String) As String

En dat moet zijn:

Function ZoekTeken(ByVal Inhoud As String) As Integer

Daarna de macro nogmaals uitvoeren.

 

[slpe]

Geweldig, dat was hem, hardstikke bedankt!!