Array-Spalten

    Hallo zusammen,

    ich lese ein Excel-Sheet in ein Array, brauche aber nur 2 Spalten. Anzahl der Spalten, sowie die benötigten sind variabel, nun würde ich gerne die restlichen Spalten löschen. Ein Script dazu habe ich auch schon gefunden, bleibt aber noch die frage, wie finde ich überhaupt heraus, wieviele spalten mein array hat? besten dank schonmal.

    [autoit]

    Func _Array2D_DeleteRowCol(ByRef $aArray, $iIndex, $sWhat = "Row")
    Local $iUB_1, $iUB_2

    [/autoit][autoit][/autoit][autoit]

    $iUB_1 = UBound($aArray, 1)
    $iUB_2 = UBound($aArray, 2)
    If $sWhat = "row" Then
    For $i = $iIndex To $iUB_1 - 2
    For $j = 0 To $iUB_2 - 1
    $aArray[$i][$j] = $aArray[$i + 1][$j]
    Next
    Next
    ReDim $aArray[$iUB_1 - 1][$iUB_2]
    Else
    For $i = 0 To $iUB_1 - 1
    For $j = $iIndex To $iUB_2 - 2
    $aArray[$i][$j] = $aArray[$i][$j + 1]
    Next
    Next
    ReDim $aArray[$iUB_1][$iUB_2-1]
    EndIf
    EndFunc ;==>_Array2D_DeleteRowCol

    [/autoit]