Opgelost Getallen naast elkaar

[Marten1975]

Goedemiddag,
Ik heb (denk ik) een vrij makkelijke vraag maar krijg het niet voor elkaar.
In bijgevoegd bestand (voorbeeld.xlsx) moet ik alleen alle cijfers (beginnend met 0037) naast elkaar hebben gescheiden dmv een komma. (zie bestand resultaat) Dit kan via transponeren volgens mij maar ik krijg het niet voor elkaar omdat ook die tekstvelden ertussen zitten. Waarschijnlijk is het heel simpel maar ik zie het niet.... Help

 

[edmoor]

Of zoiets?
Druk op de knop.
Ik verwacht dat er ook nog wel een oplossing met PowerQuery komt.

 

[Marten1975]

Geweldig, dit is het precies.
Heel erg bedankt !

 

[HSV]

Iets anders geschreven (in het geheugen).

Private Sub CommandButton1_Click()
 sv = Cells(1).CurrentRegion
  For i = 2 To UBound(sv)
      sq = Split(sv(i, 1), Chr(10))
        For x = 0 To UBound(sq)
          If InStr(sq(x), "0037") Then s0 = s0 & IIf(s0 = "", sq(x), ", " & sq(x))
        Next x
    Next i
 Range("B1") = s0
End Sub

 

[peter59]

En zoals @edmoor al suggereerde, eentje d.m.v. power query.