Mehrere Leerzeichen eines Strings durch ein Leerzeichen ersetzen

Mit der nachfolgenden Funktion lassen sich alle doppelten oder mehrfach vorkommenden Leerzeichen in einem Strig durch ein einzelnen Leerzeichen ersetzen.
Der String " Das ist ein Test !" wird von der Funktion folgendermaßen zurückgegeben "Das ist ein Test !".

Code:

Public Function ReduziereSpace(Wert As String) As String   ' ----------------------------------------------------------- ' Löscht aus dem mitgegebenen String alle doppelten ' Leerzeichen ' -----------------------------------------------------------   On Error GoTo fehler   Dim t As Integer   Wert = Trim(Wert) For t = 1 To Len(Wert) If Mid(Wert, t, 2) <> " " Then ReduziereSpace = ReduziereSpace & Mid(Wert, t, 1) End If Next t   ende: Exit Function   fehler: ReduziereSpace = "FEHLER" MsgBox Err.Description, 16, "http://www.access-home.de" Resume ende   End Function

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!