Wenn Sie in VBA mit Strings arbeiten, verwenden Sie vbNewLine, vbCrLf oder vbCR, um einen Zeilenumbruch / einen neuen Absatz einzufügen.
In diesem Artikel wird auch erläutert, wie Sie das Zeilenfortsetzungszeichen verwenden, um eine Anweisung in Ihrem tatsächlichen VBA-Code in einer neuen Zeile fortzusetzen.
Verwendung von vbNewLine
Der folgende Code zeigt Ihnen, wie Sie vbNewLine verwenden würden, um die zweite Textzeichenfolge in eine neue Zeile im Direktfenster einzufügen:
1234567891011 | Unter Verwendung von vbNewLine()Dim StringOne als StringDim StringTwo As StringStringOne = "Das ist String One"StringTwo = "Das ist String 2"Debug.Print StringOne & vbNewLine & StringTwoEnd Sub |
Das Ergebnis ist:
Verwendung von vbCrLf
Der folgende Code zeigt Ihnen, wie Sie vbCrLf verwenden würden, um die zweite Textzeichenfolge in eine neue Zeile in einer Form einzufügen:
123456789101112131415 | Unter Verwendung von vbCrLf()Dim StringOne als StringDim StringTwo As StringStringOne = "Das ist String One"StringTwo = "Das ist String 2"ActiveSheet.Shapes.AddShape(msoShapeRectangle, 15, 15, 100, 50).SelectMit Auswahl.Characters.Text = StringOne & vbCrLf & StringTwoEnde mitEnd Sub |
Das Ergebnis ist:
Verwendung von vbCR
Der folgende Code zeigt Ihnen, wie Sie vbCR verwenden würden, um die zweite Textzeichenfolge in eine neue Zeile in einem Meldungsfeld einzufügen:
1234567891011 | Unter Verwendung von vbCR()Dim StringOne als StringDim StringTwo As StringStringOne = "Das ist String One"StringTwo = "Das ist String 2"MsgBox StringOne & vbCr & StringTwoEnd Sub |
Das Ergebnis ist:
Fortsetzung einer Anweisung in VBA
Sie können das Zeilenfortsetzungszeichen ("_" aka der Unterstrich) verwenden, um eine Anweisung in Ihrem VBA-Code von einer Zeile zur nächsten fortzusetzen. Der folgende Code zeigt Ihnen, wie Sie das Zeilenfortsetzungszeichen verwenden:
12345 | UnterzeileFortsetzung ()If Range("b1").Value > 0 Then _Range("c1").Value = "Größer als Null"End Sub |