VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Text aus Textbox in Zellen aufteilen

Gruppe

Dialog

Bereich

TextBox

Thema

Text aus Textbox in Zellen aufteilen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox