Office: Text aus TextBox in Zelle: Wie Zeilenumbruchszeichen entfernen?

Hallo, ich lese den Text einer Textbox (Text mit Zeilenumbrüchen) in einen String und schreibe diesen String dann in eine Zelle. Klappt auch alles, aber vor jedem Zeilenumbruch wird dann in der Zelle dieses kleine eckige Kästchen angezeigt. Kann man das im Vorfeld irgendwie entfernen? Ich möchte aber nicht die Zeilenumbrüche an sich entfernen, eben nur dieses Zeichen, das wohl mit dem Zeilenumbruch zusammenhängt.
Danke im Voraus!

:)

 

Hallo Peter,

probier mal "=SÄUBERN(A1)"
...in A1 steht Dein Text.
Damit lassen sich alle nicht druckbaren Zeichen entfernen.

Alternativ:
=WECHSELN(A1;ZEICHEN(10);ZEICHEN(32))
Damit wird ein Absatzzeichen durch ein Leerzeichen ausgetauscht.

Grüße
Costi

 

Hallo, danke für die Antwort, aber damit werden die Zeilenumbrüche komplett entfernt und ich möchte es ja auch eigentlich über VBA machen.
Weiss noch jemand was dazu?

 

Hallo Peter,

Sorry, ist heut' nicht mein Tag...ich hätte es genauer lesen sollen...

2.Versuch...;-)

Hast Du die Zellen einfach mal über Format/Zelle/Ausrichtung auf Zeilenumbruch "ja" gesetzt? Hört sich primitiv an...
Ich habs eben mal ausprobiert, und es hat funktioniert. Zeilenumbruch war gesetzt, weißes Kästchen verschwunden.

Eventuell hilft auch noch eine andere Schriftart, die das Zeichen mit dem Ascii-Code 10 nicht besetzt hat. Könntest Du über die Zeichentabelle (bei Win integriert) herausbekommen. Das habe ich allerdings jetzt nicht getestet...

Schöne Grüße
Costi

 

Also hab jetzt mittels dieses Codes was erreicht...

If Mid(text, i, 1) = Chr(13) Then Mid(text, i, 1) = Chr(10)

... leider noch nicht genau das, was ich möchte. Jetzt sind zwar diese Kästchen verschwunden, aber es sind immer doppelte Zeilenumbrüche drin, also statt...

blablabla
blabla
blablablabla

... steht da

blablabla

blabla

blablablabla

???

 

Hallo Peter,

der Rest ist einfach:

If Mid(text, i, 2) = Chr(10) & Chr(10) Then Mid(text, i, 2) = Chr(10) & ""

Also aus Zeilenschaltung + Zeilenschaltung mach Zeilenschaltung + Leerstring.

Gruß Ingolf

 

Also ganz so einfach ist es dann ndoch nicht! Hab diese Bedingung sowohl direkt nach meinem Ersetzen des Chr(13) gesetzt und einmal nachdem kompletten Durchlauf der ersten Prüfung, d.h. die Schleife nochmal laufen lassen mit der von dir geposteten Bedingung. Hat aber leider keinerlei Auswirkung :-( Aber ich versteh nicht warum? Wenn ich im Debugger bin kommt er schon soweit, dass die Bedingung erfüllt ist und er eigentlich was ändert, aber letztendlich steht in der Zelle trotzdem ned des drin, was drin stehen soll.
Hier mal mein Code:

For j = 3 To 7 Step 2
text = Worksheets(1).Cells(j, 2)
For i = 1 To Len(text)
If Mid(text, i, 2) = Chr(10) & Chr(10) Then Mid(text, i, 2) = Chr(10) & ""
Next i
Worksheets(1).Cells(j, 2) = text
Next j

 

Hallo Peter,

anderer Versuch. Laß mal - ausgehend vom Originalmaterial, also mit chr(13) drin - folgendes Makro laufen:
Code:

 

Vielen Dank, damit hat's geklappt!