Leerzeichen im String effizient tilgen

[Elke Boese]

Hallo,

schaut euch bitte folgenden beispielhaften Code an:

Sub Leerzeichen_löschen()
Dim strZ$
strZ = "               Eins zwei drei                   vier fünf                "
strZ = Trim(strZ)

strZ = Replace(strZ, Mid(strZ, InStr(strZ, "  "), InStrRev(strZ, "  ") - InStr(strZ, "  ") + 2), " . ")
End Sub



In meinem Beispielstring gibt es vor dem Wort eins und nach dem Wort fünf eine beliebige Anzahl von Leerzeichen. Die Anzahl der Leerzeichen zwischen den Wörtern drei und vier soll ebenfalls beliebig sein.
Die Aufgabe besteht nun darin die Leerzeichen am Satzanfang und Ende zu entfernen und zwischen den Wörter drei und vier den Punkt so zu setzen, wie ich dies in meinem funktionierenden Codebeispiel
gemacht habe.
Mir scheint meine Formel aber viel zu lang für eine so simple Aufgabe. Kann man das nicht effizienter erledigen?
Vielen Dank für eure Hilfe.

[lupo1]

ungetestet:

strZ = Replace(strZ, Mid(strZ, InStr(strZ, "  "), InStrRev(strZ, "  ") - InStr(strZ, "  ") + 2), " . ")

würde (am 3. Leerzeichen, habe ich jetzt verstanden!) zu

strZ = Worksheetfunction.Substitute(strZ, " ", " . ", 3) 'oder
strZ = Application.Substitute(strZ, " ", " . ", 3) '(bitte beide ausprobieren)

[BoskoBiati]

Hi,

ob das klappt?:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK	AL	AM	AN	AO	AP	AQ	AR	AS	AT	AU	AV	AW	AX	AY	AZ	BA	BB	BC	BD	BE	BF	BG	BH	BI	BJ	BK	BL	BM	BN	BO	BP	BQ	BR	BS	BT	BU
1	Eins zwei drei                   vier fünf	73
2
3	32	160	32	160	32	160	32	160	32	160	32	160	32	160	32	69	105	110	115	32	122	119	101	105	32	100	114	101	105	160	160	160	160	160	160	160	160	160	160	160	160	160	160	160	160	160	160	32	118	105	101	114	32	102	252	110	102	160	160	160	160	160	160	32	160	32	160	32	160	32	160	32	160

Zelle	Formel
B1	=LÄNGE(A1)
A3	=CODE(TEIL($A$1;SPALTE(A$1);1))

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Wenn schon von Formeln die Rede ist, dann mal mit Formeln:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A
1	Eins zwei drei                   vier fünf
2	Eins zwei drei.vier fünf

Zelle	Formel
A2	=WECHSELN(GLÄTTEN(WECHSELN(A1;ZEICHEN(160);""));" ";".";3)

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

[Kuwer]

Hallo,

Sub Leerzeichen_loeschen()

  Dim strZ As String

  strZ = "               Eins zwei drei                   vier fünf                "

  strZ = Application.Substitute(Application.Trim(strZ), " ", " . ", 3)

  MsgBox """" & strZ & """"

End Sub

Gruß Uwe

[Elke Boese]

Toller Lerneffekt. Den Unterschied zwischen Trim und Application.Trim kannte ich nicht.
Danke.