zoeken naar string met waarde

[wolf_edgar]

Hallo,

Ben bezig met een aantal functies en nu wil het niet lukken om de laatste functie werkend te krijgen.

Ik wil in kolom A zoeken naar een string die begint met de letters AD ,AE , AF Er kunnen dus allerlei waarden bestaan zoals AD1, AD1000,AE12,AE2000, AF123,AG29.

Nu moet de functie zoeken naar alle cellen die beginnen met AD AE AF en vervolgens kopieren naar kolom B.

Ik heb dus als voorbeeld onderstaand stukje code die kijkt of de waarde groter is dan 0 en vervolgens naar kolom B kopieert.

Maar ik wil niet >0 maar iets dat begint met AD AE AF,

Het zou heel simpel moeten zijn,
iets van..... if Cells(lRow,1).Value = "AE*"

of mag ik geen value gebruiken??

========================
Voorbeeld dat zoekt naar >0

lRange = Range("A65536").End(xlUp).Row
lCol = 1
For lRow = 1 To lRange
If Cells(lRow, 1).Value > 0 Then
Cells(lCol, 3).Value = Cells(lRow, 1).Value
lCol = lCol + 1
End If

 

[Jan van Asseldonk]

Pas als volgt aan:

If Left(Cells(lRow, 1).Value, 1) = "A" Then
If Mid(Cells(lRow, 1).Value, 2, 1) = "D" Or _
Mid(Cells(lRow, 1).Value, 2, 1) = "E" Or _
Mid(Cells(lRow, 1).Value, 2, 1) = "F" Then
Cells(lRow, 3).Value = Cells(lRow, 1).Value
End If
End If




Mogelijk kun je hier alvast mee verder.

 

[wolf_edgar]

Dat werkt

Dit werkt dus uitstekend.