Zeilenumbruchszeichen entfernen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox
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

Beiträge aus den Excel-Beispielen zum Thema "Zeilenumbruchszeichen entfernen"