Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Auslesen einer Textbox in einer Userform | Herbers Excel-Forum

Auslesen einer Textbox in einer Userform
27.01.2010 17:04:25
Bernd Cramer

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.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auslesen einer Textbox in einer Userform
27.01.2010 17:17:32
Tino
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
AW: Auslesen einer Textbox in einer Userform
30.01.2010 11:09:48
Bernd Cramer
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
erst mal testen. oT.
30.01.2010 11:35:28
Tino
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige