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:
Bedankt
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] |
0
ongedaan maken
Stemmen
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.
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.
- Pagina:
- 1
Er zijn nog geen reacties op dit bericht geplaatst.