Gibt es eine Möglichkeit in Excel 97. Daten von einer Textbox mit Multiline-Eigenschaft so zu teilen, dass jede Zeile in eine neue Variabel kommt??
Thx Dani
P.S egal wie umständlich, ich brauche es umbedingt…
Hi Daniel,
folgendes Coding wird Dir dabei helfen:
(in der Array-Variable strArr() werden die einzelnen Zeilen „gespeichert“ beginnend mit strArr(0)=… usw.)
greets from MichL (Vienna)
Dim strArr() As String
Dim intPos As Integer
Dim intArr As Integer
Dim strBuf As String
'
strBuf = Me.TextBox1.Text
intArr = -1
Do
intPos = InStr(strBuf, vbCrLf)
If intPos \> 0 Then
intArr = intArr + 1
ReDim Preserve strArr(intArr)
strArr(intArr) = Left$(strBuf, intPos - 1)
strBuf = Mid$(strBuf, intPos + Len(vbCrLf))
Else
If strBuf "" Then
intArr = intArr + 1
ReDim Preserve strArr(intArr)
strArr(intArr) = strBuf
End If
Exit Do
End If
Loop
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]