Gruppe
Dialog
Problem
Wie kann ich den Text in einer UserForm-Textbox je Zeile auf verschiedene Zellen aufteilen?
StandardModule: Modul1
Sub DialogAufruf()
frmText.Show
End Sub
ClassModule: frmText
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 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