AW: Mehrere aufeinander folgende Leerzeichen erset
01.09.2007 16:11:00
fcs
Hallo Sabine,
diese Ersetzung kann man mit 3 aufeinanderfolgenden Ersetzungen durchführen.
In neueren Excelversionen ( ab 2000) kannst statt der Worksheetsfunction "Substitute" auch dei VAB-FUnktion "Replace" verwenden.
Die entsprechende deutschsprachige Tabellenfunktion ist WECHSELN. Beispiel:
A
1 Abc 123 DEF 123 GhI 4567 Qrste
2 Abc 123;DEF;123 GhI;4567;Qrste
Benutzte Formeln:
A2: =WECHSELN(WECHSELN(WECHSELN(A1; " "; ";"); "; "; ";"); ";;"; ";")
Gruß
Franz
Sub MehrfachLeerzeichenDurchEinSemicolon()
Dim strText As String, strErgebnis As String
strText = "Abc 123 DEF 123 GhI 4567 Qrste"
With Application.WorksheetFunction
strErgebnis = .Substitute(strText, " ", ";")
MsgBox strErgebnis
strErgebnis = .Substitute(strErgebnis, "; ", ";")
MsgBox strErgebnis
strErgebnis = .Substitute(strErgebnis, ";;", ";")
MsgBox strErgebnis
End With
End Sub
oder in etwas unübersichtlicherer Form geschachtelt:
Sub MehrfachLeerzeichenDurchEinSemicolon2()
Dim strText As String, strErgebnis As String
strText = "Abc 123 DEF 123 GhI 4567 Qrste"
With Application.WorksheetFunction
strErgebnis = .Substitute(.Substitute(.Substitute(strText, " ", ";"), "; ", ";"), ";;", ";" _
)
MsgBox strErgebnis
End With
End Sub