zoeken op gedeelte van celwaarde

Status
Niet open voor verdere reacties.
H

Harolda

Gebruiker
Lid geworden
7 mrt 2007
Berichten
44
Dit is de waarde van een cel

Klap Worst Leverkaas Gesn. 30Gr P.St

Deze regel heeft 1 identiek woord inzich namelijk Klap
Hoe kan ik hem daar op laten selecteren
 
Zet dit in A1:

Harolda zei:
Klap Worst Leverkaas Gesn. 30Gr P.St
Klik om te vergroten...

in A2 zet je

Klap

in A3 zet je

=(ISFOUT(VIND.ALLES(A2;A1)))

WAAR geeft dan aan dat het niet voorkomt, ONWAAR dat wel voorkomt.

Variaties zijn uiteraard mogelijk.

Wigi
 
Hij kijkt nu of de cel gevult is maar niet of het woord klapp erin zit?
 
Ja na zoeken ben ik eruit gekomen...

VIND.SPEC

Maar hij vind hem nu maar als hij niks vind krijg ik #waarde in beeld hoe kan ik die weg krijgen


Maar hoe zet ik die formule in VBA..
 
Een voorbeeld van die functie zou handiger zijn!!

Want hij ziet alles voor het zelfde aan al hou ik mij aan het voorbeeld van VBA help
 
In het bestand staan een aantal regels met waarde en de klap regels moet hij zien..

Maar hij ziet alles ik kom er niet uit welke regel ik moet gebruiken tussen

If ............................. Then
Else
End if
 

Bijlagen

Voer dit eens uit

Code: 
Sub zk()
    Dim SearchString As String, SearchChar As String, MyPos
    SearchString = Range("C8").Value  ' Tekenreeks waarin wordt gezocht.
    SearchChar = "Klap"    ' Zoekt naar "Klap".
    
    If InStr(SearchString, SearchChar) > 0 Then
        MsgBox SearchChar & " komt voor in " & SearchString & ", vanaf karakter " & InStr(SearchString, SearchChar)
    Else
        MsgBox SearchChar & " komt niet voor in " & SearchString
    End If
    
End Sub

Wigi
 
Krijg binnenkort waarschijnlijk een cursus VBA van mijn werkgever!! nog suggesties voor een cursus?!
 
Ja die doet het.. Maar nu heb ik inplaats van een paar regels een kolom waardoor hij heen moet lopen.

En de regels met klap moet verwijderen!
 
Harolda zei:
Krijg binnenkort waarschijnlijk een cursus VBA van mijn werkgever!! nog suggesties voor een cursus?!
Klik om te vergroten...

VBA cursus is waarschijnlijk weinig zinvol zonder gedegen kennis van Excel zelf. Ik weet niet hoe het daarmee staat, maar indien niet goed, doe dan maar eerst daar een cursus over.
 
Voilà

Code: 
Sub zk()
    Dim SearchChar As String, l As Long
    
    SearchChar = "Klap"    ' Zoekt naar "Klap".
    
    For l = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        
        If InStr(Range("A" & l).Value, SearchChar) > 0 Then Rows(l).Delete xlShiftUp
    
    Next
    
End Sub

Wigi
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan