VBA Rückgabewerte von Split String

Question

Ich versuche, die Split-Werte einer definierten Zeichenfolge zurückzugeben und zu definieren. (in vba) Der Begrenzer der Zelle ist "@". Hier

ein Beispiel: "Element1 @ Element2 @ Element3 @ Element4"

Ich habe dabei diese erfolgreich, wenn es nur "Element1 @ Element2" mit dem folgenden Code:

Sheet1.Range("B1").Value = Linerange.Value 

Dim Element1 As String 
Dim Element2 As String 

Element1 = Left(Linerange.Value, InStr(1, Linerange.Value, "@") - 2) 
Element2 = Right(Linerange.Value, Len(Linerange.Value) - InStr(1, Linerange.Value, "@") - 1) 

Irgendeine Idee, wie man das anstellt und Werte für Element3 und Element4 definiert?

Vielen Dank!

Answer 1

Versuchen Sie, die Split function auf Ihren Wert mit:

Dim elements, ele '' Declared implicitly as Variant type 

elements = Split(Linerange.Value, "@") 
For Each ele in elements 
    Debug.Print ele 
Next 

Answer 2

Dim vSplit As Variant 
vSplit=Split(Linerange.Value,"@") 

man dann an der [Split-Funktion] einen Blick eine Reihe von vSplit()