Gruppe
Dialog
Bereich
TextBox
Thema
TextBox-Inhalt mit und ohne Zeilenumbrüche auslesen
Problem
Der Text der TextBox soll mit und ohne Zeilenumbrüche ausgelesen werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn zwei Schaltflächen zu.
ClassModule: Tabelle1
Private Sub cmdA_Click()
MsgBox txtBox.Text
End Sub
Private Sub cmdB_Click()
Dim sTxt As String
sTxt = txtBox.Text
sTxt = WorksheetFunction.Substitute(sTxt, vbNewLine, " ")
MsgBox sTxt
End Sub