Hallo zusammen,

ich hoffe, ich habe es den Betreff richtig formuliert und hoffe, dass ich mein Vorhaben richtig schildere.
Ich lese Werte aus einer Zelle, diese sind mit einem Semikolon getrennt und können unterschiedlich lang sein, zB ";Birne;Apfel;Orange;Kiwi;Kirsche;A"
In diesem Fall sind es 5 Begriffe, können aber beliebig sein, also von 1 bis x. Und so lese und splitte ich diese:

Dim tW As String, vTemp As Variant, intSplit As Integer
tW = ActiveSheet.Range("A2").Value
vTemp = Split(tW, ";")
For intSplit = LBound(vTemp) To UBound(vTemp)
MsgBox vTemp(intSplit)
Next

' w1 = "Birne"
' w2 = "Apfel"
' w3 = "Orange"
' w4 = "Kiwi"
' w5 = "Kirsche"
...

Für die Weiterverarbeitung brauche ich die einzelne Wörter zB in einer weiteren For-Schleife, damit ich diese einbinden kann, also die
einzelne gesplitette Wörter im String sollen anhand der Anzahl der Wörter als w1 bis w"x".... zugeordnet werden.

Ich hoffe auf eure Unterstützung.

LG
Urmila