Hoe zoek in naar meerder waarden binnen 1 cel?

[BigG2016]

Beste,

Ik heb een online inschrijving lopen voor een sponsorloop.
Deelnemers kunnen hier meerdere deelnemers voor verschillende afstanden inschrijven.

Het resultaat hiervan staat in een excel-bestandje, enkel staan bij meerdere inschrijvingen de waarden binnen 1 cel.

Hoe kan ik makkelijk een totaal beeld krijgen van het aantal deelnemers per afstand?

Alvast bedankt

Guy

 

[Peter B]

Kopiëren naar je kladblok, vervolgens alle dubbele quotes vervangen en terug plakken in Excel

 

[HSV]

Of een macrootje.

Sub hsv()
Dim sn, sp, i As Long, ii As Long
ReDim arr(0)
On Error Resume Next
Columns(1).SpecialCells(4).Delete
sn = Cells(1).CurrentRegion.Resize(, 2)
 For i = 2 To UBound(sn)
  sp = Split(sn(i, 1), vbLf)
   For ii = 0 To UBound(sp)
     arr(UBound(arr)) = sp(ii)
     ReDim Preserve arr(UBound(arr) + 1)
   Next ii
Next i
Cells(2, 1).Resize(UBound(arr)) = Application.Transpose(arr)
sn = Cells(1).CurrentRegion.Resize(, 2)
   For i = 2 To UBound(sn)
    sn(i, 2) = Split(Split(sn(i, 1), ": ")(2), " - ")(0)
   Next i
Cells(1).CurrentRegion.Resize(, 2) = sn
End Sub

Of zelfs korter.

Sub hsv()
Dim sn, sp, i As Long, ii As Long
ReDim arr(1, 0)
On Error Resume Next
Columns(1).SpecialCells(4).Delete
sn = Cells(1).CurrentRegion.Resize(, 2)
 For i = 2 To UBound(sn)
  sp = Split(sn(i, 1), vbLf)
   For ii = 0 To UBound(sp)
       arr(0, UBound(arr, 2)) = sp(ii)
       arr(1, UBound(arr, 2)) = Split(Split(sp(ii), ": ")(2), " - ")(0)
     ReDim Preserve arr(1, UBound(arr, 2) + 1)
   Next ii
Next i
Cells(2, 1).Resize(UBound(arr, 2), 2) = Application.Transpose(arr)
End Sub

 

[HSV]

Als je vraag is opgelost, graag deze markeren als zodanig.

 

[BigG2016]

Als je vraag is opgelost, graag deze markeren als zodanig.

 

[BigG2016]

Ik ben pas morgen op kantoor en probeer dit morgenvroeg direct. Ik laat je dan snel iets weten. Alvast bedankt voor je moeite

 

[BigG2016]

Werkt prima!

hartelijk bedankt