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?
Download
Diese Folge als PDF kostenlos herunterladen
Folge25 Split Funktion.pdf
Adobe Acrobat Dokument 791.5 KB

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