Office: Ersezten von farbigen Ziffern

Wie kann ich selektiv farbige Ziffern löschen?

Ich habe eine Excel Datei erhalten in deren Zellinhalten sich teilweise farbige Ziffern befinden. Nur diese möchte ich entweder ersatzlos löschen oder z.B. mit Leerschlag ersetzen.

z.B. "1989 01 03 724.89063000000000"

Ich gehe 'mal davon aus, dass dies analog auch für die anderen Officeprogramme gilt.

Für Hinweise wäre ich sehr dankbar.

 

Hallo!

Soetwas ist in Excel eigentlich nicht vorgesehen, aber mit einer benutzerdefinierten Funktion sollte es machbar sein.
Als Ansatz:

Code:

Public Function Test(Z As Range)
Dim i As Integer, x As String
For i = 1 To Len(Z)
x = Mid(Z, i, 1)
If Not (IsNumeric(x) And Z.Characters(i, 1).Font.ColorIndex <> 1) Then Test = Test & x
Next i
End Function

Der Code checkt, ob es sich um eine Zahl handelt und ob diese eine andere Farbe als schwarz hat.
Der Code gehört in ein allgemeines Modul und der Aufruf in der Tabelle erfolgt z.B. mit =test(C7)