Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: TextBox mit Zeilenumbruch,Ausgabe in eine Zelle

TextBox mit Zeilenumbruch,Ausgabe in eine Zelle
Sergej
Haloo Forum,
ich brauche Ihre Hilfe..
Das ist meine code für TextBox

Private Sub TextBox1_Change()
Worksheets("Tabelle1").Range("A1") = TextBox1.Text
End Sub

In TextBox Eigenschaften setze ich Eigenschaft MultiLine auf true
Dann Starte mein Macro...schreibe mehrzeilig irgendwas
in TextBox-Fenster rein...Für Zeilenumbruch verwende
Tastenkombin. (Schift+Enter)...
Wer kann mir helefen?
In meiner Excel-Tabelle in Zelle A1 sieht dann alles irgendwie komisch aus.
Überall da wo ich Zeilenumbruch gesetz habe shteht ein
kommischen Kästchen,als ob das eine Buchstabe wäre..
Zelle Formatierung: Text,Schriftart "Arial",Zeilenubruch aktiviert
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: TextBox mit Zeilenumbruch,Ausgabe in eine Zelle
Matthias
Hallo Sergej,
in der Zelle braucht es das Chr(13) nicht:

Private Sub TextBox1_Change()
Worksheets("Tabelle1").Range("A1") = Replace(TextBox1.Text, Chr(13), "")
End Sub

Gruß Matthias
AW: TextBox mit Zeilenumbruch,Ausgabe in eine Zelle
Re:
Vielen Dank Matthias,
es funkzioniert prima!
kanst du vielleicht kurz erleutern ,was das einzeln bedeutet...
Replace(TextBox1.Text, Chr(13), "")
und noch eine Frage ,wie kann man Tastenkombination für
den Zeilenumbruch (Schift+Enter) durch Enter ersetzen?
Danke nochmals
Anzeige
AW: TextBox mit Zeilenumbruch,Ausgabe in eine Zelle
Sergej
Und wird dies auch unter Excel 97 funktioniern?

Private Sub TextBox1_Change()
Worksheets("Tabelle1").Range("A1") = Replace(TextBox1.Text, Chr(13), "")
End Sub

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige