Leerzeichen innerhalb Text ganz entfernen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Leerzeichen innerhalb Text ganz entfernen
von: Rainer
Geschrieben am: 27.11.2003 22:38:16

Hallo,

über eine Inputbox fordere ich zur Eingabe auf. Diese Eingabe übergibt den Wert an eine Zelle. Da ich mit SVerweis weiterarbeite, müssen alle Leerzeichen zwischen den Wörtern der Eingabe verschwinden. Mit LTrim, RTrim kann ich nur die äusseren Leerzeichen entfernen. Gibt es eine Lösung?

MfG

Bild


Betrifft: AW: Leerzeichen innerhalb Text ganz entfernen
von: Matthias G
Geschrieben am: 27.11.2003 23:02:29

Hallo Rainer,

So geht's:
s = Replace(s," ","")

Gruß,
Matthias


Bild


Betrifft: AW: Leerzeichen innerhalb Text ganz entfernen
von: Michael
Geschrieben am: 27.11.2003 23:03:40

hi rainer
als vorschlag: es werden ALLE leerzeichen entfernt


Sub leerzeichen()
Set test = Worksheets("Tabelle3").Cells(1, 1)
For i = 1 To Len(test)
If Mid(test, i, 1) = " " Then
test = Left(test, i - 1) & Right(test, Len(test) - i)
End If
Next i
Worksheets("Tabelle3").Cells(1, 1) = test
End Sub


cu Michael


Bild


Betrifft: AW: Leerzeichen innerhalb Text ganz entfernen
von: G.Dietrich
Geschrieben am: 27.11.2003 23:08:16

Hallo Rainer,

Eine Routine in Excel kennen ich dafür nicht, aber vielleicht kannst Du mit dieser kleinen Routine etwas anfangen.




Sub Leerzeichen_eliminieren()
Dim i As Integer
Dim hs As String
hs = "Dies ist nur ein Beispielsatz, aus dem ich die Leerzeichen entfernen will"
Do While InStr(hs, " ")
    i = InStr(hs, " ")
    hs = Left(hs, i - 1) + Mid(hs, i + 1)
Loop
Sheets("Tabelle1").Cells(1, 1).Value = hs
End Sub



Mit freundlichen Gruß

Gerhard


Bild


Betrifft: als Formel "=WECHSELN(A1;" ";)" (o.T.)
von: Josef Ehrensberger
Geschrieben am: 27.11.2003 23:23:49

/


Bild


Betrifft: AW: als Formel "=WECHSELN(A1;" ";)" (o.T.)
von: Gerd K.
Geschrieben am: 28.11.2003 07:40:32

Hallo Josef,
benutze folgenden Code bevor du den Wert an eine Zelle übergibst:
ergebnis = Replace(ergebnis, " ", "")
ergebnis enthält die Eingabe aus der Inputbox. Leerzeichen werden durch nichts
ersetzt. Aus Otto Maier wird OttoMaier.

Gruss
Gerd


Bild


Betrifft: An alle Antworter
von: Rainer
Geschrieben am: 28.11.2003 14:23:17

Hallo,

nach meinen Bedürfnissen angepasst konnte ich alle Antworten weiterverwenden. Super Vorschläge. Vielen Dank.

MfG


Bild

Beiträge aus den Excel-Beispielen zum Thema " Leerzeichen innerhalb Text ganz entfernen"