Excel raadsel

[emielDS]

Lees zelf nog eens uw eerste vraag en probeer daar maar eens te komen tot uw voorbeeld. 

Om te bekomen wat je zou willen moet je een lijst hebben met  alle rekeningnummers, namen en nog veel meer info om alles in de juiste groep te kunnen plaatsen.

 vb de betaling op rknr. BE65 9898 7665 4444 moet dat bij" horeca", "supermarkt" of" meisjes van plezier".

[Kenny1989]

Op 23/11/2018 om 17:46, Haije zei:

Kenny,

 

kijk eens naar deze mogelijkheden.

 

TIP voor de toekomst: stuur een EXCELvoorbeeld mee.

Voor Kenny.xlsx

Beste Haije,

 

Ik ben volledig mee met uw formule. Alvast bedankt om dit te verduidelijken! Hier kan ik al een heel eind mee verder.

Doch stuit ik op nog enkele problemen. Ik vond het zéér moeilijk in het begin mijn volledige vraag te formuleren. Ik probeer je uit te leggen hoe ik verder wil met uw formules:

 

"Elke CEL A (Tabblad "Tabel") zou doorzocht moeten worden op alle trefwoorden uit KOLOM C (Tabblad "Groepen").
De gevonden trefwoorden in CEL A (Tabblad "Tabel") zouden moeten verwijzen naar de correcte groep in KOLOM B (Tabblad "Groepen")
Deze groep-herkenning zou dan per rij weergegeven worden in KOLOM E (Tabblad "Tabel")"

 

In bijlage heb ik een aangepast voorbeelddocument doorgestuurd.

 

Ik wil jullie alvast allebei nog eens superhard bedanken! Ik voel met een beetje schuldig dat ik zelf zo weinig van Excel ken :s.

 

Groeten,

 

Kenny

Voorbeelddocument 2.xlsx

[Haije]

Kenny, dat kan alleen m.b.v. macro's. Is dat een toegestane eoptie?

[bakerman]

Mogen of niet, hier is er eentje.

 

De UDF in kolom B haalt het rekeningnummer uit de tekst.

 

De Index/Match formule in kolom C zoekt dan een overeenkomst in de tabel.

Kenny1989.xlsm

[Kenny1989]

Hey iedereen,

 

Ik heb nu mijn tabel zo realistisch mogelijk gemaakt :D. Ik heb al wat geprobeerd met jullie formules, maar tot hiertoe ben ik er nog niet in geslaagd :/.

Hieronder het voorbeelddocument.

 

Groeten,

 

Kenny 

Voorbeelddocument 3.xlsx

[bakerman]

Probeer het eens met deze.

Sub test()
    sn = Blad2.Cells(3, 2).CurrentRegion.Value
    Set dic = CreateObject("scripting.dictionary")
    For i = 2 To UBound(sn)
        dic.Item(sn(i, 2)) = sn(i, 1)
    Next
    With Blad1
        For Each cl In .Range("D3", .Range("D" & .Rows.Count).End(xlUp))
            For Each Key In dic.keys
                If InStr(1, cl, Key, vbBinaryCompare) > 0 Then cl.Offset(, 1) = dic.Item(Key): Exit For
            Next
        Next
    End With
End Sub

 

Kenny1989_Dic.xlsm

[Kenny1989]

15 minuten geleden, bakerman zei:

Probeer het eens met deze.

Sub test()
    sn = Blad2.Cells(3, 2).CurrentRegion.Value
    Set dic = CreateObject("scripting.dictionary")
    For i = 2 To UBound(sn)
        dic.Item(sn(i, 2)) = sn(i, 1)
    Next
    With Blad1
        For Each cl In .Range("D3", .Range("D" & .Rows.Count).End(xlUp))
            For Each Key In dic.keys
                If InStr(1, cl, Key, vbBinaryCompare) > 0 Then cl.Offset(, 1) = dic.Item(Key): Exit For
            Next
        Next
    End With
End Sub

 

Kenny1989_Dic.xlsm

Beste Bakermat,

 

Hartelijk dank voor je reactie!

Om even te verduidelijken, ik ben een absolute rookie in Excel.

Wat moet ik juist doen met die codetaal?

In bijlage heb ik mijn voorbeeld documentje gestopt.

 

Groeten,

 

Kenny

Voorbeelddocument 3.xlsx

26 november 2018 aangepast door Kenny1989

[emielDS]

zie knop 1

Voorbeelddocument 3 (3).xlsm

 

ps Hoeveel verschillende voorbeeld documenten ga je nog plaatsen? 

26 november 2018 aangepast door emielDS

[Kenny1989]

25 minuten geleden, emielDS zei:

zie knop 1

Voorbeelddocument 3 (3).xlsm

 

ps Hoeveel verschillende voorbeeld documenten ga je nog plaatsen? 

Beste Emiel,

 

Als ik op knop 1 druk krijg ik te zien wat er op "Snapshot knop 1" staat

Wanneer ik dan op fouten opsporen druk krijg ik te zien wat er op "Snapshot fouten opsporen" staat.

 

Groeten,

 

Kenny

 

 

Snapshot Knop 1

Snapshot Fouten opsporen

[emielDS]

de knop 1 naast de E kolom. (Dat krijg je als je uitermate brede kolommen gebruikt)