Private Sub UserForm_Initialize()
txtText.Text = _
"Hans W. Herber" & vbCr & _
"Im Schönblick 5" & vbCr & _
"53567 Asbach" & vbCr & _
"https://www.herber.de" & vbCr & _
"herber@herber.de"
cmdEintragen.SetFocus
End Sub
Private Sub cmdEintragen_Click()
Dim iRow As Integer
Dim sTxt As String
sTxt = txtText.Text
sTxt = WorksheetFunction.Substitute(sTxt, vbLf, "")
Do
iRow = iRow + 1
If InStr(sTxt, vbCr) Then
Cells(iRow, 1).Value = Left(sTxt, InStr(sTxt, vbCr) - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, vbCr))
Else
Cells(iRow, 1).Value = sTxt
Exit Do
End If
Loop
Unload Me
End Sub
Private Sub cmdEintragen_Click()
Dim arr As Variant
Dim iRow As Integer
Dim sTxt As String
sTxt = txtText.Text
sTxt = WorksheetFunction.Substitute(sTxt, vbLf, "")
arr = Split(sTxt, vbCr)
For iRow = 0 To UBound(arr)
Cells(iRow + 1, 1).Value = arr(iRow)
Next iRow
Unload Me
End Sub