Dim aTexte(2) As Variant
aTexte(0) = "A1;A2"
aTexte(1) = "B1;B2"
aTexte(2) = "VAR1;VAR2"
 
k = Split(aTexte(0), ";")
l = Split(aTexte(1), ";")
m = Split(aTexte(2), ";")
  For i = 0 To UBound(k)
    For g = 0 To UBound(l)
      For d = 0 To UBound(m)
        Debug.Print k(i) & l(g) & m(d)
      Next
    Next g
 
  Next i

Option Explicit
 
Dim aTexte(2) As String
 
' diese rekursive Funktion wird für jede Stelle des Ergebnisses aufgerufen
Private Sub Recursive(ByVal sCurText As String, ByVal iIndex As Integer)
  Dim sSplitted() As String
  Dim i As Integer
  If iIndex > UBound(aTexte) Then
    ' Ende erreicht
    List1.AddItem sCurText
  Else
    ' Möglichkeiten für aktuelle Stelle aufsplitten
    sSplitted = Split(aTexte(iIndex), ";")
    ' alle Möglichkeiten für aktuelle Stelle durchgehen
    For i = 0 To UBound(sSplitted)
        ' nächste Stelle
        Recursive sCurText & sSplitted(i), iIndex + 1
    Next
  End If
End Sub
 
Private Sub Command1_Click()
  List1.Clear
  Recursive "", 0
End Sub
 
Private Sub Form_Load()
  aTexte(0) = "A1;A2"
  aTexte(1) = "B1;B2"
  aTexte(2) = "VAR1;VAR2"
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.