exel query

[Opa-smedje]

Ik heb een lijst van png afbeeldingen die ik met de Query funtie heb omgezet in een xl file, zie "geboorten" hierbij gevoegd, via bewerken heb die kunnen omwerken tot de bijgevoegde "geboorten bewerkt" nu wil ik de kolommen CDE samenvoegen tot 1 kolom alsook FGH maar dat lukt niet. Kan u mij hierbij helpen ?

 

Beste dank bij voorbaat.

Opa Smedje
 

Geboorten De Mulder bewerkt.xlsx Geboorten De Mulderxlsx.xlsx

[Opa-smedje]

Hello Philiep,

bedankt voor je snelle reactie maar ik begrijp er niets van, je vraagt of dit voldoende is maar verder niets en de file "geboorten bewerkt" is hetgeen ik je had gestuurd.

 

Opa Smedje

[bakerman]

Probeer deze eens op je onbewerkte tekst.

 

Sub test()
    Dim a, i As Long, txt As String, m As Object
    With Range("a2", Range("a" & Rows.Count).End(xlUp))
        a = .Value
        With CreateObject("VBScript.RegExp")
            .Global = True
            .IgnoreCase = True
            .Pattern = "\d{1,2}\.\d{1,2}\.\d{4}|blz(\s)+\d+(\s)+\(\d+\)"
            For i = 1 To UBound(a, 1)
                For Each m In .Execute(a(i, 1))
                    txt = txt & IIf(txt <> "", ",", "") & m
                Next
                a(i, 1) = txt: txt = Empty
            Next
        End With
        .Columns(3).Value = a
    End With
    Range("c2", Range("c" & Rows.Count).End(xlUp)).TextToColumns Range("C2"), Comma:=True
End Sub