Bedrijfsvorm filteren uit cel

[JV_88]

Beste,
Ik wil uit een lijst met firmanamen de bedrijfsvorm filteren.
De bedrijfsvormen staan gespecifieerd in een apart tabblad (die ik eventueel nog zou moeten aanvullen).

Bedoeling is dus dat in het eerste tabblad de bedrijfsvorm gefilterd wordt uit de cel in kolom A en deze plaatst in kolom B.

Ik vertrek dus van hieruit,

en zou dus dit willen bekomen


De plaats waar de bedrijfsvorm staat in kolom A is dus variabel.

Kan iemand me op weg zetten, met hoe ik er toe kom dat er bekeken wordt als een gedeelte van de cel overeenstemt met een waarde uit het tabblad Bedrijfsvormen?

Alvast bedankt,

mvg

Jeroen

 

[edmoor]

Met een simpele UDF:

Function BedrijfsVorm(Target As Range) As String
    If InStr(UCase(Target), "COMMV") > 0 Then BedrijfsVorm = "COMMV": Exit Function
    If InStr(UCase(Target), "BVBA") > 0 Then BedrijfsVorm = "BVBA": Exit Function
    If InStr(UCase(Target), "BV") > 0 Then BedrijfsVorm = "BV": Exit Function
    If InStr(UCase(Target), "NV") > 0 Then BedrijfsVorm = "NV": Exit Function
End Function

 

[JV_88]

Bedankt edmoor, ziet er al mooi uit.

Maar in mijn voorbeeld bestand zijn er nog maar enkele bedrijfsvormen opgenomen, de effectieve lijst zal nog een stuk langer zijn.

Kan dit ook op een manier waarop ik niet voor iedere bedrijfsvorm een lijn code moet toevoegen? Maar dat er gekeken wordt op bijvoorbeeld "alle velden" uit de kolom bedrijfsvormen? Zodat ik deze gemakkelijk kan aanvullen met nog andere bedrijfsvormen.

... sorry, maar ik kan niet echt overweg met VBA.

Alvast bedankt voor de hulp.

mvg

Jeroen

 

[edmoor]

Je kan het ook zo doen.
Dan hoef je alleen maar de nieuwe bedrijfsvorm bovenin in de string achter BV= toe te voegen.
Zie bijvoorbeeld LLC:

Function BedrijfsVorm(Target As Range) As String
    BV = Split("COMMV|BVBA|BV|NV|LLC", "|")
 
    For i = 0 To UBound(BV)
         If InStr(UCase(Target), BV(i)) > 0 Then BedrijfsVorm = BV(i): Exit Function
    Next i
End Function

Maar er zitten hier ook functiegoeroes die er wellicht een oplossing voor hebben.
Dan is er geen VBA nodig.

 

[AHulpje]

Of zo, met bedrijfsvormen in een tabel die je ongebreideld kunt uitbreiden, bedrijfsvorm wordt ook uit de firmanaam verwijderd. De bedrijfsvorm moet door een spatie van de firmanaam gescheiden zijn, anders wordt Sams ijssalon voor een Société anonyme aangezien en zijn naam verbasterd tot ms ijssalon.

 

[edmoor]

Je mist de Commv.

 

[AHulpje]

Oeps, zo niet meer:

For r = 1 To Range("Tabel1[[bedrijfsvorm]]").Rows.Count + 1

 

[Enigmasmurf]

Al zitten er nog kleine schoonheidsfoutjes in: er verdwijnen nogal veel spaties, en in bedrijfsnamen waarvan de bedrijfsvorm niet in hoofdletters staat blijft deze nog hangen.
De code licht aangepast kan er zo uitzien:

Sub Bepaalbedrijfsvorm()
    For f = 2 To Sheets("Lijst").UsedRange.Rows.Count
        firma = Cells(f, 1)
        For r = 1 To Range("Tabel1[[bedrijfsvorm]]").Rows.Count + 1
            BedrijfsVorm = Range("Tabel1[[bedrijfsvorm]]").Rows(r)
            If InStr(UCase(firma), " " & BedrijfsVorm) > 0 Then
                Cells(f, 1) = Trim(Replace(firma, BedrijfsVorm, "", , , vbTextCompare))
                Cells(f, 2) = BedrijfsVorm
                Exit For
            ElseIf InStr(UCase(firma), BedrijfsVorm & " ") = 1 Then
                Cells(f, 1) = Trim(Replace(firma, BedrijfsVorm, "", , , vbTextCompare))
                Cells(f, 2) = BedrijfsVorm
                Exit For
            End If
        Next
    Next
End Sub

 

[AlexCEL]

Enkele formule opties, met alle rechtsvormen in België:

=ALS.FOUT(REGEXEXTRAHEREN(HOOFDLETTERS(A2);"\b(BVBA|BV|NV|COMMV|VOF|CV|CVBA|VZW|ESV|SE|SCE|ASBL|SCRL|SPRL|SNC|SCS|GIE|EEIG)\b");"")

=ALS.FOUT(XML.FILTEREN("<t><s>"&SUBSTITUEREN(HOOFDLETTERS(A2);" ";"</s><s>")&"</s></t>"; "//s[.='BV' or .='NV' or .='BVBA' or .='COMMV' or .='VOF' or .='CV' or .='CVBA' or .='VZW' or .='ESV' or .='SE' or .='SCE' or .='ASBL' or .='SCRL' or .='SPRL' or .='SNC' or .='SCS' or .='GIE' or .='EEIG']"); "")

De eerste is voor Excel 365, de tweede is voor eerdere Excel-versies.

 

[peter59]

Ik heb een poging gewaagd met power query.

 

[JV_88]

Super !!

Hier mee kan ik zeker verder.

Bedankt voor jullie hulp allemaal.

mvg

Jeroen

 

[HSV]

@AlexCEL,

=ALS.FOUT(REGEXEXTRAHEREN(HOOFDLETTERS(A2:A7);"\b("&TEKST.COMBINEREN("|";;Bedrijfsvormen!A1:A12)&")\b";;0);"")