Herbers Excel-Forum - das Archiv
Leerzeichen innerhalb Text ganz entfernen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ InputBox
- Leerzeichen innerhalb Text ganz entfernen von Rainer vom 27.11.2003 22:38:16
- AW: Leerzeichen innerhalb Text ganz entfernen - von Matthias G am 27.11.2003 23:02:29
- AW: Leerzeichen innerhalb Text ganz entfernen - von Michael am 27.11.2003 23:03:40
- AW: Leerzeichen innerhalb Text ganz entfernen - von G.Dietrich am 27.11.2003 23:08:16
- als Formel "=WECHSELN(A1;" ";)" (o.T.) - von Josef Ehrensberger am 27.11.2003 23:23:49
- AW: als Formel "=WECHSELN(A1;" ";)" (o.T.) - von Gerd K. am 28.11.2003 07:40:32
- AW: als Formel "=WECHSELN(A1;" ";)" (o.T.) - von Gerd K. am 28.11.2003 07:40:32
- An alle Antworter - von Rainer am 28.11.2003 14:23:17
- AW: Leerzeichen innerhalb Text ganz entfernen - von Matthias G am 27.11.2003 23:02:29
 |
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
 |
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
|
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
|
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
|
Betrifft: als Formel "=WECHSELN(A1;" ";)" (o.T.)
von: Josef Ehrensberger
Geschrieben am: 27.11.2003 23:23:49
/
|
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
|
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
| |