[GELÖST] Leerzeichen am Ende eines Textes entfernen

[Ich Bins]

Hallo zusammen,

nach den Volksbanken haben nun auch die Sparkassen das Exportformat der Geldtransaktionen geändert.
Nach dem Herunterladen einer Sparkassen Export *.csv-Datei und dem Hinzufügen an meine Gesamtliste
suchte ich mit dem Autofilter im Feld Verwendungszweck nach einer Überweisungungen mit dem selben Text.
Dabei stellte ich fest, dass der Text der neuen *.csv-Datei im Autofilter-Feld mit Anführungszeichen
angezeigt wird und die älteren ohne. Die Ursache ist ein Leerzeichen am Ende des Textes, das die Sparkasse,
weshalb auch immer anfügt.
Die Sparkasse habe ich bereits über das unnnötige Leerzeichen informiert.

Mit der Funktion GLÄTTEN kann man das Leerzeichen am Ende entfernen und in eine neue Zelle eintragen.
Welche Möglichkeit (außer der manuellen) gibt es das Leerzeichen in den Original-Zellen zu entfernen?

Viele Grüße
Ich Bins

[HeritzP]

Hallo,

Bearbeiten -> Suchen&Ersetzen. Im Feld "Suchen" gibst Du ein Leerzeichen und dann $ ein. Damit werden Leerzeichen gesucht, die sich am Ende eines Absatzes befinden. Unten bei den Optionen hakst Du noch "Regulärer Ausdruck" an. Das "Ersetzen"-Feld lässt Du einfach leer.

Das kann mit dem Makro Rekorder aufgenommen werden.

[Mondblatt24]

Hallo,

Welche Möglichkeit (außer der manuellen) gibt es das Leerzeichen in den Original-Zellen zu entfernen?

Spalte markieren, Daten → Text in Spalten aufrufen, einen Haken bei [X]Leerräume beschneiden setzen und Ok drücken.

Gruß
Peter

[karolus]

Hallo,

Welche Möglichkeit (außer der manuellen) gibt es das Leerzeichen in den Original-Zellen zu entfernen?

Spalte markieren, Daten → Text in Spalten aufrufen, einen Haken bei [X]Leerräume beschneiden setzen und Ok drücken.

Gruß
Peter

Genau diese Option gibts auch schon im CSV-IMPORT-DIALOG aber dieser Dialog wird ja wie immer in null-komma-nix mit <ok> abgenickt.

[Ich Bins]

Hallo zusammen,

Bearbeiten -> Suchen&Ersetzen. Im Feld "Suchen" gibst Du ein Leerzeichen und dann $ ein. Damit werden Leerzeichen gesucht, die sich am Ende eines Absatzes befinden. Unten bei den Optionen hakst Du noch "Regulärer Ausdruck" an. Das "Ersetzen"-Feld lässt Du einfach leer.

Funzt einwandfrei - danke.

Spalte markieren, Daten → Text in Spalten aufrufen, einen Haken bei [X]Leerräume beschneiden setzen und Ok drücken.

Funzt ebenfalls enwandfrei - danke.

Genau diese Option gibts auch schon im CSV-IMPORT-DIALOG aber dieser Dialog wird ja wie immer in null-komma-nix mit <ok> abgenickt.

Habe ich versucht aber entfernt auf diese Weise nicht die Leerzeichen.
Eigentlich öffne ich die csv-Dateien mit einem Makro, das ich vor Jahren nur mit tatkräftiger Unterstützung aus diesem Forum erstellen konnte. Das Makro sortiert die Felder neu, entfernt Felder und füge die neuen aufbereiteten Daten an die Gesamtliste an.

Viele Grüße
Ich Bins

[Ich Bins]

Hallo zusammen,

jetzt habe ich eine Möglichkeit gefunden wie man das Leerzeichen mit einem Makro entfernen kann.

Code: Alles auswählen

Sub ersetzen
	oDoc = ThisComponent
	oSheet = oDoc.Sheets(0)
	oRange = oSheet.getCellrangeByName("E1:E100")
	oSearchReplace = oRange.createReplaceDescriptor()
	oSearchReplace.SearchString = " $"
	oSearchReplace.ReplaceString = ""
	oSearchReplace.SearchRegularExpression = True
	oRange.ReplaceAll(oSearchReplace )
end sub

Viele Grüße
Ich Bins

[karolus]

Und wenns nicht nur exakt 1 Leerzeichen am Ende sein soll, sondern beliebig viele am Anfang ODER am Ende:

Code: Alles auswählen

oSearchReplace.SearchString = " ^ +| +$"