Supportnet / Forum / Tabellenkalkulation

Hallo Ich möchte den Tex einer Zell mit Zellenumbruck ( Chr(13) ) in eine Textbox einfügen und den Text mit Zellenumbruch in eine andere Zelle einfügen. Ich habe folgenden Code benutzt [code] Sub tb_fuellen() Dim a a = Worksheets(1).Range("A1") UserForm1.TextBox1 = a End Sub Sub zelle_fuellen2() Dim a a = UserForm1.TextBox1 Worksheets(1).Range("A2") = a End Sub [/code] Mit dieser version passiert folgendes. In die Zelle A2 wird der Text mit doppelten Zellenumbruch eingefügt. Für eure bemühungen danke ich im voraus

Hi EIZO,

so ganz versteh ich das nicht. Hast Du in einer Zelle einen Text, der bereits einen Zeilenumbruch hat oder möchtest Du einen in dem Text einfügen wenn er eingelesen wird? Dann, möchtest Du den Text nur mit einen Zeilenumbruch wieder zu einer anderen Zelle zurückübertragen?

Denn die beiden Makros, die Du geschrieben hast, machen eigentlich nichts anderes, als Daten in die von einer Zelle in die TextBox und den Text aus einer Textbox in eine Zelle zu übertragen. Daher verstehe ich jetzt auch nicht, dass der Text aus dem Textfeld mit einen doppelten Zeilenumbruch eingefügt wird.

Eventuell klärst Du mich mal ein wenig auf. Dann kann ich Dir eventuell helfen, wenn ichs denn dann kapiere. ;-)

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo

Kann Coros nur zustimmen, aber afaik ist das Zeilenumbruchzeichen chr(10) ´LF´ und nicht chr(13) ´CR´ .

Gruß

Ja das habe ich etwas unverständlich ausgerdückt, um es etwas leichter zu machen erkläre ich einmal was ich vor habe.
Ich möchte ein Rechnungsprogramm schreiben. Um die artikel in die Rechnungsvorlage zu schreiben möchte ich dies über eine UserForm machen um einerseits die Stammartikel aus einer Tabelle einzulesen und anderer seits manuell in die Textboxen eingebe.
So jetzt zu dem Problem wenn ich die Eigenschaft MultiLine auf True setze und die Eigenschaft EnterKeyBeharior auf True setzte, kann ich in der TextBox einen Text eingeben und diesen mit der ENTER Taste beliebig umbrechen.
Wenn ich den umgebrochenen Text nun mit dem zweiten Makro in die Zelle schreibe dann macht der Text den ellenumbruch und zeig das umbruchzeichen an.
Am besten ich es das du das mal ausprobierst das du verstehst was ich meine das ist schlecht zu beschreiben
Aber schon mal vielen dank

mfg EIZO

hi :)

jo 10 zeilenvorschub 13 return :))

gruss nighty

Hi EIZO,

mit nachfolgenden Makro zum Rückübertragen des Textboxtextes sollten Dir nur ein Zeilenumbruch ohne das Zeichen erzeugt werden.

Sub zelle_fuellen2()
Dim Wiederholungen As Long, a As String
For Wiederholungen = 1 To Len(TextBox1.Value)
If Asc(Mid(TextBox1.Value, Wiederholungen, 1)) <> 13 Then _
a = a & Chr(Asc(Mid(TextBox1.Value, Wiederholungen, 1)))
Next
Worksheets(1).Range("A2").Value = a
Unload Me
End Sub

Teste mal, ob das so bei Dir funktioniert. Bei mir (Excel2003) hat es jedenfalls den Text mit Zeilenumbruch aber ohne Umruchszeichen zurück übetragen.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hi corros

das funktioniert einwandfrei du bist echt klasse. Ich war da scho stunden lang darüber gesesen und habe es nicht auf die reihe bekommen. Naja bin ja auch noch a anfänger. Auf jeden fall nochmals vielen dank für die Unterstützung.

mfg EIZO

Hi EIZO,

freut mich, dass ich Dir weiterhelfen konnte. Danke Dir auch für die Rückmeldung.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

• wieder Makro Code
• einlesen einer zelle
• Wie kann ich in Excel in jeder Zelle am Ende automatisch ein Komma einfügen?
• Berechnungsergebnis in andere Zelle
• Befehl zum Kopieren eines Zellinhaltes in Wenn Formel verwenden