Rückkehr in VBA-Code-Beispiele

VBA – Neue Zeile / Zeilenumbruch

Wenn Sie in VBA mit Strings arbeiten, verwenden Sie vbNewLine, vbCrLf oder vbCR, um einen Zeilenumbruch bzw. neuen Absatz einzufügen. In diesem Artikel wird auch erörtert, wie Sie das Zeilenfortsetzungszeichen verwenden können, um eine Anweisung in Ihrem aktuellen VBA-Code in einer neuen Zeile fortzusetzen.

Verwendung von vbNewLine

Der folgende Code zeigt Ihnen, wie Sie vbNewLine verwenden können, um die zweite Textzeichenfolge in eine neue Zeile im DirektFenster zu setzen:

Sub VerwendungVbNeueZeile()

Dim StringEins As String
Dim StringZwei As String

StringEins = "This is String One"
StringZwei = "This is String Two"

Debug.Print StringEins & vbNewLine & StringZwei

End Sub

Das Ergebnis ist:

verwendung direktfenster vb zeilenumbruch

Verwendung von vbCrLf

Der folgende Code zeigt Ihnen, wie Sie vbCrLf verwenden, um die zweite Textzeichenfolge in eine neue Zeile in einer Form zu setzen:

Sub VerwendungVbCrLf()

Dim StringEins As String
Dim StringZwei As String

StringEins = "This is String One"
StringZwei = "This is String Two"

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 15, 15, 100, 50).Select

With Selection
.Characters.Text = StringEins & vbCrLf & StringZwei
End With

End Sub

Das Ergebnis ist:

verwendung vb strgf

Verwendung von vbCR

Der folgende Code zeigt Ihnen, wie Sie vbCR verwenden, um die zweite Textzeichenfolge in eine neue Zeile in einer Meldungsbox zu setzen:

Sub VerwendungVbCR()

Dim StringEins As String
Dim StringZwei As String

StringEins = "This is String One"
StringZwei = "This is String Two"

MsgBox StringEins & vbCr & StringZwei

End Sub

Das Ergebnis ist:

verwendung vb meldungsbox

Fortsetzen einer Anweisung in VBA

Sie können das Zeilenfortsetzungszeichen („_“ alias der Unterstrich) verwenden, um eine Anweisung in Ihrem VBA-Code von einer Zeile in der nächsten fortzusetzen. Der folgende Code zeigt Ihnen, wie Sie das Zeilenfortsetzungszeichen verwenden können:

Sub ZeilenFortsetzung ()

If Range("b1").Value > 0 Then _
   Range("c1").Value = "Größer als Null"
End Sub

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users! vba save as


Learn More!