ich habe auf einer Form eine Textbox in der längere Texte eingegeben werden können. Wie kann ich diese Texte nun Zeile für Zeile auslesen ?
Gruss
Holger
dim EinzelTexte() as string
EinzelTexte = Split(Textbox1.Text, Chr(10))
Msgbox "Erste Zeile: " & EinzelTexte(0)
bei automatischen Zeilenumbrüchen wird es sehr schwierig.'...
For i = 0 To UBound(EinzelTexte)
MsgBox "Zeile" & i + 1 & ": " & EinzelTexte(i)
Next i
'...
Gruß,Sub tt()
Dim x
x = Split([B2], vbLf)
[C2].Resize(UBound(x) + 1) = WorksheetFunction.Transpose(x)
End Sub