Excel raadsel

[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)

[emielDS]

eindelijk is er de lijst die ik u reeds op vrijdag gevraagd had.

 

Ik denk dat de volgende vraag reeds op blad1 opgelost is.

rekeningnummer.xlsm