Herbers Excel-Forum - das Archiv

Zeilenumbruchszeichen entfernen

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

Betrifft: Zeilenumbruchszeichen entfernen
von: Klaus

Geschrieben am: 17.02.2005 08:33:06
Guten Morgen zusammen
Ich habe ein Problem mit dem Zeilenumbruchzeichen (dieses komische Viereck). Von einer Textbox in einer Userform übergebe ich Text mit
Range("Hilfstabelle!B22") = TextBox3.Value
in eine Zelle ins Tabellenblatt. Die Textbox hat die Parameter (MultiLine, Zeilenumbruch, EnterKeyBehavior)...trotzdem kommt z.B. soetwas heraus:
KlausDieter
Nun habe ich versucht mit
Sub Zeichen7löschen()
For Each c In Selection
c.Replace Chr(7), ""
Next c
End Sub

diese Vierecke zu löschen, doch es funktioniert nicht.
Kann mir jemand sagen, wie ich diese Dinger verschwinden lassen kann??
Gruss Klaus
Bild

Betrifft: AW: Zeilenumbruchszeichen entfernen
von: EtoPHG
Geschrieben am: 17.02.2005 09:15:08
Hallo Klaus,
Ist mir schleierhaft wie du auf Chr(7) kommst. Normalerweise ist ein Zeilenumbruch
Chr(10).
Gruss Hansueli
Bild

Betrifft: AW: Zeilenumbruchszeichen entfernen
von: Klaus-Dieter Matzutat
Geschrieben am: 17.02.2005 09:43:44
Hallo Hansueli
Habe das auch mit Chr(10) und Chr(13) versucht, Funktioniert auch nicht.
Gruss Klaus
Bild

Betrifft: AW: Zeilenumbruchszeichen entfernen
von: EtoPHG
Geschrieben am: 17.02.2005 10:23:38
Hallo Klaus,
Versuch es mal mit diesem Code:
ActiveCell.Value = TextBox3.Text
ActiveCell = Replace(ActiveCell, Chr(13), "")
Gruss Hansueli
Bild

Betrifft: AW: Zeilenumbruchszeichen entfernen
von: Klaus

Geschrieben am: 17.02.2005 10:29:18
Hallo Hansueli
Hab was in der Recheche gefunden, das funktioniert:

Cells.Replace What:=Chr$(13), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Deins werde ich auch mal testen. Vielen Dank
Gruss Klaus
Bild

Betrifft: AW: Zeilenumbruchszeichen entfernen
von: bst

Geschrieben am: 17.02.2005 10:35:30
Hallo auch,
finde doch besser erstmal heraus, was dort überhaupt steht.
cu, Bernd
--
Option Explicit
Sub DumpIt()
Dim r As Range
Dim i As Integer
Dim ch As String
Dim s As String
For Each r In Selection
s = ""
For i = 1 To Len(r.Text)
ch = Mid(r.Text, i, 1)
If Asc(ch) = AscW(ch) Then
s = s & ch & "(" & Asc(ch) & ") "
Else
s = s & ch & "(U:" & AscW(ch) & ") "
End If
r.Offset(0, 1).Value = s
Next
Next
End Sub

 Bild
Excel-Beispiele zum Thema "Zeilenumbruchszeichen entfernen"
Fehler entfernen Alle leeren Zeilen und Spalten entfernen
Zeilenumbrüche im aktiven Blatt entfernen Zeichen in Zeichenfolgen umwandeln und Leerzeichen entfernen
In mehrere Spalten doppelte Inhalte entfernen Leerzeichen zwischen Zeichen- und Zahlenfolge entfernen
Entfernen der letzten beiden Zeichen in Listenelementen In jeder Zeile einer Textdatei 1. und letztes Zeichen entfernen
Buchstaben aus Textdatei entfernen und neu speichern Alle Hyperlinks eines Arbeitsblattes entfernen