Private Sub bilde2erKombis(ByVal vLine As String)
 
  Dim arValues() As String
 
  arValues = Split(vLine, ",")
 
  Dim i As Long
  Dim j As Long
 
  For i = 0 To UBound(arValues) - 1
    For j = i + 1 To UBound(arValues)
 
      Debug.Print Trim$(arValues(i)) & ", " & Trim$(arValues(j))
 
    Next j
  Next i
End Sub

Gruß
Dirk

--
?Get it right the first time

Beitrag wurde zuletzt am 06.01.11 um 10:45:54 editiert.