Excel: Leerstellen und /-Zeichen weg

Computer: Software & Programmierung Office Software
1

Hallo,

ist es möglich, die Telefon-Nr. 0 29 45/ 38 99 25 automatisch so umzuformen, daß die Leerstellen und das /-Zeichen verschwindet, so daß das Ergebnis 02945389925 lautet?

Gruß
Jörg

2

Hallo Jörg,

ähnliches habe ich auch schonmal gefragt und die Lösung von WOLY http://www.wer-weiss-was.de/cgi-bin/forum/showarchiv… bekommen …

Public Sub SonderzeichenWEG()
 Dim i As Long
 Dim Start As String
 Dim Ende As String
 Dim Temp As String
 Dim erlaubt As String
 Start = Time
 erlaubt = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
 Application.ScreenUpdating = False
 For Each c In Selection
 With c
 Temp = ""
 For i = 1 To Len(.Text)
 If InStr(1, erlaubt, Mid(.Text, i, 1), vbTextCompare) \> 0 Then
 Temp = Temp & Mid(.Text, i, 1)
 End If
 Next i
 .Value = Temp
 End With
 Next c
 Application.ScreenUpdating = True
 Ende = Time
 MsgBox "Start: " & Start & vbCrLf & "Ende: " & Ende, vbInformation, "...fertig!"
End Sub

Das mußt Du nur noch an Deine Bedürfnisse anpassen.

gruss moritzbock

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Nachtrag: Leerstellen und /-Zeichen weg
Hallo Jörg,

statt

.Value = Temp

schreibst Du

.Value = "'" & Temp

damit die Null am Anfang auch übernommen wird.

nochmal gruss moritzbock

4

Hallo,

ist es möglich, die Telefon-Nr. 0 29 45/ 38 99 25 automatisch
so umzuformen, daß die Leerstellen und das /-Zeichen
verschwindet, so daß das Ergebnis 02945389925 lautet?

Das geht auch einfach über Bearbeiten - Ersetzen:

(Zunächst die Telefonnummern markieren.) Dann einfach im ersten Schritt ein Leerzeichen eingeben, das Ersetzenfeld freilassen und auf alle ersetzen gehen. Danach das gleiche für den Querstrich. Voilà!

5

ist es möglich, die Telefon-Nr. 0 29 45/ 38 99 25 automatisch
so umzuformen, daß die Leerstellen und das /-Zeichen
verschwindet, so daß das Ergebnis 02945389925 lautet?

Hallo Jörg,
wenn in A1 „0 29 45/38 99 25“ und in B1 die Formel:
=WECHSELN(WECHSELN(A1;" „;“");"/";"")
steht,so hat dann B1 den Wert: „02945389925“
Gruß
Reinhard

6

Thank you!

Einfach und unkompliziert. So wie ich es mag.

Gruß
Jörg

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]