Office: Mehrere Leerzeichen durch eines ersetzen

Hallo zusammen,
muss euch nochmals nerven...!

Wie kann ich die überflüssigen Zeichen in einer Tabelle löschen?!

WIe ich das erste bzw. das letzte Leerzeichen entferne ist mir bewußt, aber wie bekomme ich die in der Mitte weg?!

Code:

ich habe auch schon ne ganze Weile gegoogelt und bin auf folgendes gestoßen, was bei mi aber irgendwie nicht funzt. Hinzu kommt, dass die ganze Tabelle von z.B. A1 bis X5000 durchsucht werden soll.

Public Function LeerRed(Zeichen) As String
Dim Pos As Integer
If IsNull(Zeichen) Then Exit Function
Zeichen = Trim(Zeichen)
Pos = InStr(1, Zeichen, " ") ' 2 Leerzeichen !!
While Pos 0
Zeichen = Left(Zeichen, Pos) & Mid(Zeichen, Pos + 2)
Pos = InStr(Pos, Zeichen, " ")
Wend
LeerRed = Zeichen
End Function

Quelle: http://www.arstechnica.de/computer/m...a/vba0010.html

Bedanke mich schon jetzt!

:)

 

Moin, Mart83,

da bleibe ich lieber im Foren-Verbund und verweise auf Wie löscht man Leerzeichen in einem String?. Das könnte dann so aussehen - Code gehört in ein allgemeines Modul:

Code: