Office: Mit VBA Leerzeichen entfernen

User · 7. April 2003

Hi,

wie kann ich einen String formatieren, so daß keine Leerzeichen enthalten sind?

:)

strausto · 8. April 2003

Code:

debug.Print replace("Text mit Leerzeichen"," ","")
TextmitLeerzeichen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

debug.Print trim(" Text mit Leerzeichen ")
Text mit Leerzeichen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Arne Dieckmann · 8. April 2003

Leerzeichen am Anfang: mit LTrim()
am Ende: RTrim()
am Anfang und Ende: mit Trim()
im gesamten String: mit Replace()

Wobei Replace() wohl erst ab Access 2000 funktioniert. Für Access 97 gibt es aber einen Ersatz bei Reinhard: Reinhard Kraasch Software Engineering

DT|Marcel · 8. April 2003

Thx..

wenn mir jetzt noch jemand schreiben kann, was an folgender Syntax falsch ist:

Me.Controls("bezArtnr" & Str(zahl)).Caption = Replace(Me.Controls("Form_einbau.txtArtnr_" & Str(zahl).Value), " ", "")

P.S: Warum gibt es überhaupt VBA? *frown.gif* C forever *biggrin.gif*

strausto · 8. April 2003

Was willst Du damit erreichen?
Ist das ein Teil aus einer Schleife?

Claudia Fürstenhöfer · 8. April 2003

wie wäre es damit: http://www.ms-office-wissen.de/askdr...ails.php?id=13

du musst den code noch anpassen, damit alle zeichen gelöscht werden.

claudia

DT|Marcel · 8. April 2003

Danke Claudia, aber ich bekomme es net hin,dass der mir alle Leerzeichen löscht.

strausto · 8. April 2003

Code:

forms(0).Controls(Zahl).controls(0).caption=replace(forms(0).Controls(Zahl).value," ","")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

P.S. Danke für Deine Antwort *redface

DT|Marcel · 9. April 2003

Danke, habe bereits eine eigene Lösung ausgearbeitet. Für Alle, die das gleiche Problem haben wie ich:

Code:

Function KillBlank(TempString)

Dim Temp As String
Dim Zeichen As String
Dim NeuerString As String
Dim Gefunden As Boolean
Dim i As Integer

Gefunden = False
NeuerString = ""

If IsNull(TempString) Then
' Wenn kein Inhalt im Feld vorhanden ist,
' wird die Funktion abgebrochen
Exit Function
Else
Temp = CStr(TempString)
For i = 1 To Len(Temp)
Zeichen = Mid$(Temp, i, 1)
If Zeichen = Chr(32) Then
NeuerString = Trim(NeuerString & Zeichen)
Else
NeuerString = NeuerString & Zeichen
End If
Next i
' Das Ergebnis wird an die Funktion wieder übergeben
KillBlank = NeuerString
End If

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

strausto · 9. April 2003

Deine eigene Lösung ist doch nichts weiter als Plagiat von Claudias Vorschlag
Interessant wäre doch, wie Du die Felder in dem Form richtig referenzierst!

Liege ich mit meiner Code so falsch?
Falls es an dem ist dann könntest Du Dir ruhig mal die Mühe machen, zu schreiben, woran es denn nun wirklich liegt.

Es war schon schwierig genung mit den wenigen Angaben zu vermuten was Du da eigentlich beabsichtigst.

Office: Mit VBA Leerzeichen entfernen

Mit VBA Leerzeichen entfernen

Mit VBA Leerzeichen entfernen

Mit VBA Leerzeichen entfernen

Mit VBA Leerzeichen entfernen

Mit VBA Leerzeichen entfernen - Similar Threads - VBA Leerzeichen entfernen

VBA HTTP Post - Probleme JSON Payload

Kombinationsfeld in VBA auswerten

Download per VBA nicht aktuell

Autofilter bei Zelländerung automatisch aktualisieren – ohne VBA

Bereich mit VBA zusammenhalten

bedingte Formatierung Schriftgröße (VBA?)

VBA-Code überspringt einzelne Zeilen

Users found this page by searching for:

vba leerzeichen entfernen