Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Text aus Textbox in Zellen aufteilen

Gruppe

TextBox

Problem

Wie kann ich den Text in einer UserForm-Textbox je Zeile auf verschiedene Zellen aufteilen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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 & _
        "http://www.herber.de" & vbCr & _
        "herber@herber.de"
    cmdEintragen.SetFocus
End Sub