Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Anzeige

506 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige