Const lou = "Rot Grün Blau" & vbCrLf & "Audi Toyota Mercedes" & vbCrLf & _
    "Wein Cola Eistee"
  Dim Farbautotrunk(3, 3) As String
  Dim i As Long, j As Long
  Dim Lst1() As String, Lst2() As String
 
  Lst1 = Split(lou, vbCrLf)
  For i = 0 To UBound(Lst1)
    Lst2 = Split(Lst1(i), " ")
    For j = 0 To UBound(Lst2)
      Farbautotrunk(i + 1, j + 1) = Lst2(j)
    Next j
  Next i

  Dim Farbautotrunk(3, 3) As String
  Dim i As Long
 
  For i = 1 To 3
    Farbautotrunk(1, i) = Choose(i, "Rot", "Grün", "Blau")
    Farbautotrunk(2, i) = Choose(i, "Audi", "Toyota", "Mercedes")
    Farbautotrunk(3, i) = Choose(i, "Wein", "Cola", "Eistee")
  Next i

Gruss,

Zardoz