Gebruik de Converteer komma gescheiden waarden VBA
By Gast op dinsdag 24 december 2019
Geplaatst in Excel
Antwoorden 1
sympathieën 0
keer bekeken 12.4K
Stemmen 0
Het gebruik van de VBA om mijn kommareeks in rijen om te zetten werkt prima, maar nu moet ik de uitbraak afstemmen op de waarde in kolom A. Voorbeeld
Kolom A heeft "Bomen: Kolom B was de kommareeks: Kornoelje, Es, Esdoorn, Elm, Appel.
Hoe toon ik als:
[lettertype=Calibri]Actueel[/ Font]
[lettertype=Calibri]Bomen[/ Font][lettertype=Calibri]Kornoelje, Es, Esdoorn, Elm, Appel[/ Font]
[lettertype=Calibri]Noodzaak[/ Font]
[lettertype=Calibri]Bomen[/ Font][lettertype=Calibri]Kornoeljeboom[/ Font]
[lettertype=Calibri]Bomen[/ Font][lettertype=Calibri]As[/ Font]
[lettertype=Calibri]Bomen[/ Font][lettertype=Calibri]Esdoorn[/ Font]
[lettertype=Calibri]Bomen[/ Font][lettertype=Calibri]iep[/ Font]
[lettertype=Calibri]Bomen[/ Font][font=Calibri]Apple [/font]
Bedankt
Openbare subtekstToColumns()
Stel ARange = bereik in ("A:A")
Stel BRange = Bereik ("B:B") in
Stel Crange = Bereik ("C:C") in
Stel Drange = Bereik ("D:D") in
Dim arr() als tekenreeks
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Rij
Uitzetten = Werkbladen.Toevoegen
uit.Naam = "uit"
uitRij = 2
Voor i = 2 Naar lr
    arr = Splitsen(ARange(i), ",")
    Voor j = 0 Naar UBound(arr)
        uit.Cellen(uitRij, 1) = Trim(arr(j))
        uit.Cellen(uitRij, 2) = BRange(i)
        out.Cells(outRow, 3) = Crange(i)
        out.Cells(outRow, 4) = Drange(i)
        uitRij = uitRij + 1
    Volgende j
Volgende i
End Sub
Ik heb de headers niet gedaan of goed met het uitvoerblad omgegaan, maar je kunt in wezen zien wat er aan de hand is.
Lewis-H
·
3 jaar geleden
·
0 Likes
·
0 Stemmen
·
0 reacties
·
Bekijk het volledige bericht