hi all :-)

wie gewünscht :-))

falls keine andere lösung parat ist

gruss nighty

einzufuegen unter alt+f11/projektexplorer/allgemeines modul

einfuegen/funktion/benutzerdefiniert

=Sumtext(A1)

Function Sumtext(Zellen As Range)
Dim Zelle As Range
Dim zaehler2 As String
Dim zeich1 As Integer
Dim zaehler1 As String
Application.Volatile
For zeich1 = 1 To Len([Zellen])
If Mid([Zellen], zeich1, 1) Like "[0-9,.]" = True Then
zaehler2 = zaehler2 & Mid([Zellen], zeich1, 1)
End If
Next zeich1
Sumtext = zaehler2
End Function

Hallo Partisan84,
einfach Strg+H
Suchen nach -
Ersetzen durch: freilassen
Gruß Niels

Hallo unbekannter Fragesteller,

nehmen wir an, dass die zu untersuchende Zeichenfolge in Zelle A1 steht und das Ergebnis der Umformung in Zelle B1 erscheinen soll. Dann löst folgendes kleine Makro das Problem:

Sub Umformung()
    a = Cells(1, 1)
    l = Len(a)
    z = ""
    For i = 1 To l
        aa = Mid(a, i, 1)
        ab = Asc(aa)
        If ab > 47 And ab < 58 Then z = z & aa
    Next i
    Cells(1, 2) = z
End Sub

Wenn die Anfangsbedingungen sich ändern, müsste das Makro an den entsprechenden Stellen natürlich angepasst werden.

Gruß
Peter