HAllo Volker,
da mir Formeln nicht so liegen, habe ich Dir mal ein VBA-Makro erstellt, welches Dir die Zellen, die Du vorher markieren musst (können auch ganze Bereiche oder eine ganze Spalte sein), "auseinandernimmt" und nur die Zahlen wie gewünscht eine Spalte weiter nach rechts aufführt.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Numerische_Zahlen_rausfiltern()
Dim intWortteil As Integer
Dim strArray As String
Dim rngZelle As Range
For Each rngZelle In Selection
strArray = ""
rngZelle.Offset(0, 1).Clear
For intWortteil = 1 To Len(rngZelle)
If IsNumeric(Mid(rngZelle.Value, intWortteil, 1)) = True Then _
strArray = strArray & Mid(rngZelle.Value, intWortteil, 1)
Next
On Error Resume Next
rngZelle.Offset(0, 1) = CDbl(strArray)
On Error GoTo 0
Next
End SubIch hoffe, Du kommst klar. Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]