Textbox-Inhalt in TB speichern

[Andyle]

Hallo an alle.

Ich habe auf einem Tabellenblatt eine Textbox.

EnterKeyBehavior = true
WordWrap = true

wie bekomme ich den Wert in eine Tabelle gespeichert?

Über Range geht ja so:

Sheets("Bewirtung").Range("D7").Copy Sheets("DB").Cells(letzteZeile, 4)

Textboxinhalt.Copy Sheets("DB").Cells(letzteZeile, 4)

Danke für Eure Unterstützung

[RPP63]

Moin!
Verrate uns doch bitte, um welche "Textbox" es sich handelt.
Ich kenne mindestens 3, eher 4 verschiedene Arten.
Noch besser wäre eine Beispieldatei.

Gruß Ralf

[Andyle]

Textfeld (ActiveX)

Ich benötige einzeilige Textfelder und mehrzeilige mit Zeilenumbruch

---

Anbei die Datei

[Kuwer]

Hallo,

Code:

Sheets("DB").Cells(letzteZeile, 4).Value = Tabelle7.txt_Personen.Value

"Tabelle7" ist der Codename des Worksheets "Bewirtung".

Gruß, Uwe

[Fennek]

Hallo,

da war ich zu langsam.

Um die Text-Box im Sheet "Bewirtung" in die Zelle "D7" zu schreiben, hilft dieser Code im Code-Bereich des Sheets:

Code:

Cells(7, 4) = Me.txt_Personen.Text

mfg

PS: Vor dem Öffnen habe ich alle VBA-Codes entfernt

[Andyle]

also dass funktioniert jetzt alles.

jetzt habe ich allerdings einProblem mit den zeilenumbrüchen.

Hole ich die Daten aus der Tabelle, zeigt er folgendes in der Textbox an: siehe Anhang!

Wie bekomme ich denn die zeilenumbrüche wieder in die Textbox?


Multiline war die Lösung!

Aber in der Listbox wird es so angezeigt. Kann man dass überhaupt in der Listbox anpassen?

[OnlineExcel]

Hi,
nein - eine Listbox (in VBA) kennt und kann keine Zeilenumbrüche.
Du kannst diese vielleicht vorher ersetzen um zumindest es anzuzeigen ohne die Umbruchzeichen
(Replace vbcr , replace vblf, replace vbcrlf,)  je nachdem welches Umbruchzeichen übrig geblieben ist mit einem Leerzeichen.

Gruß Peter

[Andyle]

Vielen Dank!

Lösung:

'Variable definieren
Dim Text As String

'Wert zuweisen
Text = Tabelle1.Cells(Zeile, 4).Value

'Zeichen ersetzen
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Replace(Text, vbCrLf, ", ")

[Andreas Killer]

'Wert zuweisen
Text = Tabelle1.Cells(Zeile, 4).Value

'Zeichen ersetzen
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Replace(Text, vbCrLf, ", ")

Der Zeilenumbruch in einer Zelle ist ein vbLf, nicht vbCrLf!

Andreas.

[Andyle]

Funktioniert! Danke

Nur habe ich Probleme mit ComboBoxen

im Form email_form befinden sich 3 Comboboxen für die Emailadressen.

Gebe ich die Email manuell ein, funktioniert alles.

Setze ich RowSource =E_Mail_Empfaenger aus dem NamensManager, zeigt er einen Fehler "email_1 = .ComboBox1.Value" im Modul 

Laufzeitfehler 94 Unzulässige Verwendung von Null

An was kann dass liegen?