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.