Splitsen cijfers van letters

[HWV]

Beste,

Ik heb een lijst met cijfers en letters aan elkaar die ik graag gesplitst wil hebben.

25kg
10st
ds5
ds10

Enzo nog meer varianten hierop die gesplitst moeten worden.
Graag wil ik dit in VBA script doen ivm dat dit per keer geupdate gaat worden.
In de bijlage heb ik een voorbeeld gedaan om mijn vraag kracht bij te zetten.
Bij voorbaat al mijn dank

HWV

 

[snb]

vervang kg ,Ds en st door niets.

 

[wiki]

Met onderstaande code en formules heb ik voor elkaar gekregen

Function RemoveNumeric(Rng As String) As String
Dim Tmp As String
Dim i As Integer

Tmp = Rng
For i = 0 To 9
Tmp = Application.Substitute(Tmp, i, " ")
Next i
Tmp = Replace(Tmp, ",", "")
Tmp = Replace(Tmp, "X", "")
Tmp = Replace(Tmp, "/", "")
Tmp = Replace(Tmp, "€", "")

RemoveNumeric = Tmp
End Function

Function StripAlphas(source_ref As Range) As String
'' Remove alpha characters from a string.
Application.Volatile
Dim intI As Integer
Dim strNotNum As String, strTemp As String
strTemp = ""
For intI = 1 To Len(source_ref.Value)
If Mid(source_ref.Value, intI, 1) Like "[0-9]" Or Mid(source_ref.Value, intI, 1) Like "," Or Mid(source_ref.Value, intI, 1) Like " " Then
 strNotNum = Mid(source_ref.Value, intI, 1)
Else: strNotNum = " "
End If
strTemp = strTemp & strNotNum

Next intI

StripAlphas = strTemp
End Function 'StripAlphas()

formules in blad =StripAlphas(a1) en 
  =RemoveNumeric(a1)

gr wim

 

[HWV]

Beste Wiki en SNB,

Bedankt voor jullie meedenken en de input.
Als ik de oplossing van SNB gaat aanhouden ben ik een deel van mijn data kwijt.
Daar integen met de opossing van Wiki, splits de cijfers van de letters, wat voor mij de perfecte oplossing is.

Nogmaals bedankt voor de inbreng.

groet HWV