Extract all instances of matching string in a range of cells by cell

Hello,

I find myself stuck looking for a solution, which preferably would be in VBA to tie into the rest of the project.

1. Variable number of rows (column E)
2. For each cell, remove all characters unless the pattern is ###### (6 numbers)

Note: The Qty may be anything >0.

One of the obstacles is that a single cell may contain one or more pattern-matching strings (######).

If more than one string per cell (thus far the most 'Seq#' per one cell was 11), then split with a line break - such as Chr(10).

Three examples before vs. after below.

Thank you,

Stefan

Hello Carim,

My apology for not replying sooner.

You are absolutely correct with your correction in your first reply!

I will take a look at your solution and will be back.

Thank you for taking time to help me out!

Stefan

Excellent!

This works like a charm.

I’ll work on this some more Monday to include into the remainder of my procedure; i don't foresee any issues incorporating it there.

Thank you again for your quick help and solution.

Stefan