Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Auslesen einer Textbox in einer Userform | Herbers Excel-Forum


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"