ich habe in einer Excel-Tabelle eine Spalte mit Faxnummern. Da verschiedene Leute die Nummern eingeben bzw. pflegen, ist das Format ziemlich unterschiedlich z. B.
01234/56789-0
01234 - 56 78 9 (0)
(01234) 56 78 90
Ich möchte nun für den Faxversand alle Sonderzeichen ()/- wegfiltern, so daß nur noch Ziffern , also hier 01234567890 übrigbleiben.
Wer kann mir hierfür eine Funktion nennen?
Gruß und Dank im Voraus (Woly)
PS: Per Makro kann ich das Ganze programmieren, kein Problem. Ich möchte aber nach Möglichkeit eine Excel-Funktion verwenden!
Mit einer eingebauten Excelfunktion wirst Du das wohl nicht schaffen. Es bleibt Dir die Möglichkeit, eine VBA-Funktion wie die unten dargestellte zu integrieren.
Function RamschRaus(Bezugsfeld As String) As String
Dim ZählerX As Long, ZählerY As Long, Ramsch As String, Zwischenfeld As String
Ramsch="()/- " 'hier schreibst Du rein, was Du nicht haben willst
For ZählerX=1 To Len(Bezugsfeld)
For ZählerY=1 To Len(Ramsch)
If Mid$(Bezugsfeld,ZählerX,1)=Mid$(Ramsch,ZählerY,1) Then
Zwischenfeld=""
Exit For
End If
Zwischenfeld=Mid$(Bezugsfeld, ZählerX,1)
Next
RamschRaus=RamschRaus+Zwischenfeld
Next
End Function
Diese Funktion müßte (getestet habe ich sie jetzt nicht) einen gegebenen String nach allen „ungewollten“ Zeichen parsen und dann den gesäuberten String ausgeben.
Anmerkung : Das ist „aus dem Hut“ programmiert. Sicherlich noch Optimierungsmöglichkeiten vorhanden - und, wie gesagt, nicht getestet.