Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
Screenshot zu Userform	Userform-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Label
Screenshot zu Label	Label-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

Auslesen einer Textbox in einer Userform | Herbers Excel-Forum

• Auslesen einer Textbox in einer Userform von Bernd Cramer vom 27.01.2010 17:04:25
• AW: Auslesen einer Textbox in einer Userform - von Tino am 27.01.2010 17:17:32
  • AW: Auslesen einer Textbox in einer Userform - von Bernd Cramer am 30.01.2010 11:09:48
    • erst mal testen. oT. - von Tino am 30.01.2010 11:35:28

Betrifft: Auslesen einer Textbox in einer Userform von: Bernd Cramer
Geschrieben am: 27.01.2010 17:04:25

Hallo,

ich benutze in einer Userform eine mehrzeiliege Textbox.
Diese soll Zeile für Zeile per VBA Ausgelesen werden und in ein Excel-Blatt eingetragen werden.

Vor einiger Zeit hatte mir ein anderer Forum teilnehmer folgenden Tip gegeben.

With tbgrund1
.SetFocus
tbz = 0 'Diese zeile wurde nachträglich von mir eingefügt
For i = 0 To .TextLength
.SelStart = i
.SelLength = 1
Select Case .SelText
Case Chr(13), Chr(10)
Case Else
If tbz = 0 Then .CurLine = tbz 'Diese zeile wurde nachträglich von mir eingefügt
Cells(.CurLine + 27, 2).Value = Cells(.CurLine + 27, 2).Value & .SelText
tbz = 1 'Diese zeile wurde nachträglich von mir eingefügt
End Select
Next
End With

Leider tritt das Problem auf, das die 1. Zeile der Textbox nicht ausgelesen wird. Die anderen Zeilen werden erfasst und klaglos übertragen. Ich habe mir mit den kommentierten Zeilen versucht zu helfen, ging aber leider nicht. Wer kann mir Helfen.

Betrifft: AW: Auslesen einer Textbox in einer Userform von: Tino
Geschrieben am: 27.01.2010 17:17:32

Hallo,
kannst auch dies hier testen.

Dim MyData As New DataObject
MyData.Clear
MyData.SetText tbgrund1
MyData.PutInClipboard
Cells(27, 2).PasteSpecial
MyData.Clear

Gruß Tino

Betrifft: AW: Auslesen einer Textbox in einer Userform von: Bernd Cramer
Geschrieben am: 30.01.2010 11:09:48

Hallo Tino,

soory dass ich so lange gewiegen habe. Aber die Zeit.
Ich werde jetzt mal Deine Idee Prüfen.
So weit ich den Code aber schon verstanden habe, schreibt er den Text komplett nach cells(27,2). Mein Ziel ist es aber Textbox Zeile 1 nach 27, Zeil2 nach 28 zu schrieben.

Ich melde mich nochmal

Betrifft: erst mal testen. oT. von: Tino
Geschrieben am: 30.01.2010 11:35:28

Beiträge aus den Excel-Beispielen zum Thema "Auslesen einer Textbox in einer Userform"