Specifiek woord filteren uit zin in een bepaalde cel

[getyours]

Beste Forum leden ik heb de volgen de vraag.

Met onderstaande code kan ik kijken welke excel bestanden ik in een bepaalde folder heb staan.

Sub GetFiles()
Dim file As String
file = Dir("E:\test\*.xl??")

Dim row As Integer
row = 1

Do While file <> ""

    Cells(row, 1) = file
    
    row = row + 1
    file = Dir()

Loop

End Sub

Ik krijg dan de tekst als volgt in een cel te staan:

Overdracht Formulier Ontvangst Ploeg A Middag 7-4-2018 13-57 .xlsm
Overdracht Formulier Ontvangst Ploeg B Middag 7-4-2018 13-57.xlsm
Overdracht Formulier Ontvangst Ploeg C Middag 7-4-2018 13-57 .xlsm
Overdracht Formulier Ontvangst Ploeg D Middag 7-4-2018 13-57.xlsm

Ik wil nu per periode van 4 weken gaan tellen hoe vaak Ploeg A, Ploeg B,.... voorkomt in de folder, echter kom ik hier niet helemaal uit.
Met de "= deel" functie komt ik een eind maar deze filtert het wordt Ploeg A, Ploeg B niet volledig. Het totaal zou dus per ploeg op 18 moeten uitkomen als het aantal niet voldoet kleurt de cel rood wel voldoet kleurt de cel groen.

Wie heeft er een tip?

 

[roeljongman]

zonder een bestand doe ik de aanname dat die bestandenlijst in kolom A staat
zou je met deze formule een eind moeten komen..

=AANTAL.ALS($A$2:$A$5;"*ploeg A*")

 

[VenA]

Plaats een excelbestand met waar je tegenaan loopt. Ploeg A en Ploeg B staan steeds op dezelfde positie dus dat kan het probleem niet zijn.

Dit zou kunnen

=MID(A1;FIND("Ploeg";A1);7)

Beter is het om gelijk de gegevens in de juiste kolommen te zetten dmv VBA.

 

[edmoor]

zonder een bestand doe ik de aanname dat die bestandenlijst in kolom A staat

Dat staat ook in de code

 

[getyours]

Het voorbeeld bestand

mvg

Bekijk bijlage Map1.xlsm

 

[VenA]

Je kan ook eerst wat met de suggesties doen

 

[getyours]

=AANTAL.ALS($A$2:$A$5;"*ploeg A*")

Werkt goed ik zie ook wat ik fout deed met de functie.

Wederom bedankt

 

[snb]

Sub M_snb()
 c00 = Dir("E:\test\*Ploeg A*.xl*")

 Do While c00 <> ""
    y=y+1
    c00 = Dir
 Loop

  msgbox y & " bestanden van Ploeg A"

End Sub