Multiline Textbox
21.07.2008 09:20:00
Bernd
falls Du es liest. Es war verblüffend einfach. Ich habe einfach Deine 2 . Variante genommen
und
.curline+1,1 durch .curline+28,2 ersetzt.
Natürlich den Textboxnamen auch geändert und es funktioniert. Die Multilinetextbox wird jetzt schön Zeile für Zeile ausgelesen.
Noch einmal Danke für die Tipps.
Einen Nachteil hat die Sache noch, Ich kann nur die Anzahl der Zeichen für die Textbox bei der Eingabe begrenzen. Eleganter wäre es zum Beispiel über das change-Ereignis die Anzahl der Zeile mit automatischen oder erzwungenem Zeilenumbruch zu begrenzen.
Private Sub eintragen_Click()
Dim i As Long
With TextBox1
.SetFocus
For i = 1 To .TextLength
.SelStart = i
.SelLength = 1
Select Case .SelText
Case Chr(13), Chr(10)
Case Else
Cells(.CurLine + 28, 1).Value = Cells(.CurLine + 28, 1).Value & .SelText
End Select
Next
End With
End Sub