Data extraheren uit een cel

LiesbethD · 19 aug 2019

Binnen een cel staan één of meerdere PortfolioID's. Deze portfolioID's wil ik uit de cel halen zodat ik deze vervolgens kan analyseren op dubbelen.
Ik heb een voorbeeldbestand toegevoegd. In de eerste kolom is de cel waar het om gaat en in de volgende kolommen staat het gewenste resultaat. Ik wil dus het PortfolioID elke keer in een aparte kolom.

Zou iemand mij kunnen helpen met de juiste formule/macro/UDF?

Alvast heel erg bedankt!

HSV · 19 aug 2019

Code:

Sub hsv()
Dim sv, a, s, i As Long, j As Long, n As Long, k As Long
sv = Cells(1).CurrentRegion.Columns(1)
ReDim a(UBound(sv), 0)
 For i = 2 To UBound(sv)
  s = Split(sv(i, 1), "{""PortfolioID"":")
   For j = 1 To UBound(s)
      a(i - 2, k) = Split(s(j), ",")(0)
           k = k + 1
        If k > n Then n = k
      ReDim Preserve a(UBound(sv), n)
   Next j
   k = 0
   Next i
 Cells(2, 2).Resize(UBound(sv), n) = a
End Sub

Data extraheren uit een cel

LiesbethD

Nieuwe gebruiker

Bijlagen

HSV

Inventaris

Nieuwste berichten

Wij waarderen jouw privacy