Excel VBA Befehle aus Folge 25: Zeichen trennen mit der Split Funktion

Inhalt dieser Folge:

  • Wie kann ich mit Hilfe der Split Funktion eine Zeichenfolge trennen?
  • Wie kann ich die getrennten Zeichenketten in ein Array speichern, über eine MsgBox ausgeben oder in ein Tabellenblatt eintragen?

Beispiel 1: Zeichenfolge trennen und in ein Array speichern:

Sub Beispiel1()

 

'Variablen definieren

Dim Text As String

Dim EinzelneWorte() As String

 

'Werte zuweisen

Text = "Hund,Katze,Maus"

 

'Zeichenkette trennen & in ein Array speichern

EinzelneWorte = Split(Text,",")

 

End Sub

Beispiel 2: Zeichenfolge trennen und Begriffe in einer MsgBox ausgeben:

Sub Beispiel2()

 

'Variablen definieren

Dim Text As String

Dim EinzelneWorte() As String

Dim i As Integer

 

'Werte zuweisen

Text = "Hund,Katze,Maus,Vogel"

 

'Zeichenkette trennen & Begriffe in MsgBox ausgeben

EinzelneWorte = Split(Text,",")

 

'Werte einzeln in einer MsgBox ausgeben

For i = 0 To UBound(EinzelneWorte)

MsgBox = EinzelneWorte(i)

Next i

 

End Sub