op 1 regel

[wilbert1967]

hallo

ik heb een bestand (zie bijlage)
en die bevat iedere keer een verschillende aantal regels, maar de opbouw is altijd het zelfde
nr1, nr2, nr3.
Nr1 kan meerdere keren voorkomen en als dat zo is dan moet de waarden van die regel achter de waarden van 1e keer dat nr1 voorkomt geplaatst worden.


voorbeeld
"112232","43","80010092"
"113041","43","80010092"
"112232","43","80010226"
"112435","43","80010226"

moet dan worden
"112232","43","80010092","43","80010226"
"113041","43","80010092"
"112435","43","80010226"

weet iemand een oplossing?

 

[VenA]

En wat heeft deze vraag met excel te maken?

 

[wilbert1967]

omdat ik daar een oplossing mee zoek
als u beter/ander programma weet?

 

[Dylanh]

Zover ik weet is .txt geen excel bestand. Waarvan heb je dit bestand vandaan? een script of zo?

 

[wilbert1967]

ik krijg het van een kennis van mij en die krijg het van een website binnen.

 

[VenA]

omdat ik daar een oplossing mee zoek
als u beter/ander programma weet?

Dan kan je het beste even het bestandje inladen in excel en deze dan hier plaatsen. Met iets in jouw eerste tab de data en in de tweede tab hoe je het wil hebben.

 

[HSV]

Zoals @VenA voorstelde:
Inladen in een Excel, en onderstaande macro in een standaardmodule zetten.

Sub hsv()
Dim i As Long, iRow As Long
 Range("F2").CurrentRegion.ClearContents
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If WorksheetFunction.CountIf(Columns(6), Cells(i, 1)) = 0 Then
        Cells(Rows.Count, 6).End(xlUp).Offset(1) = Cells(i, 1)
    End If
iRow = Columns(6).Find(Cells(i, 1), , xlValues, xlWhole).Row
      If Cells(iRow, 7) = "" Then
         Cells(iRow, 7) = Cells(i, 2) & ", " & Cells(i, 3)
      Else
        Cells(iRow, 7) = Cells(iRow, 7) & ", " & Cells(i, 2) & ", " & Cells(i, 3)
    End If
  Next i
End Sub

 

[wilbert1967]

dank u
het werkt