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"