HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Multiline Textbox
21.07.2008 09:20:00
Bernd
Hallo Daniel,
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


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: Multiline Textbox
25.07.2008 15:17:00
harry
Hi,
nutze doch einfach im Change-ereignis die Len- und die LineCount-Eigenschaften
für die Abfrage.
mfg harry
btw: wenn du Eleganz willst, schau dir die Fotos in der GEO an.

AW: Multiline Textbox
25.07.2008 15:33:00
Bernd
Hallo Harry,
Danke für den Tip. Ich schaus mir mal an.
Gruß
Bernd

Links zu Excel-Dialogen

300 Forumthreads zu ähnlichen Themen

Meistgelesene Forumthreads (12 Monate)