Hallo Georgyboy,
Ik heb het in de code bij jouw voorbeeld gehouden (gegevens in kolom B van rij 3 tot rij 10, bedoel ik), dus vooral om je de manier te tonen.
De resultaten komen daarbij in kolom D.
Probeer dus maar eens hiermee:
Sub e_nummers()
Dim arr()
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[E][0-9]{3}"
For i = 3 To 10
tekst = Cells(i, 2)
Set r = .Execute(tekst)
For Each it In r
aantal = aantal + 1
ReDim Preserve arr(1 To aantal)
arr(aantal) = it
Next it
Next i
End With
Cells(3, 4) = "aantal: " & aantal
Cells(5, 4).Resize(UBound(arr)) = Application.Transpose(arr)
End Sub
Groetjes,
Molly