Excel wenn Abfrage in einer Forschleife

1. offizieller Beitrag

    Hallo,
    ich möchte in Excel mehrer Zellen durchgehen und checken lassen ob aus einer Zelle der Wert schon exestiert.
    Es darf aber nicht die selbe Zelle überprüfen.
    Wie bekomme ich das hin?
    Ich habe mir da so ne Forschleife gedacht, dies geht aber leider nur in VBA :/
    Ich möchte aber kein VBA anwenden.
    mfg Freaky

    • Offizieller Beitrag

    Sowas in der Art

    Spoiler anzeigen
    [autoit]

    #include <Excel.au3>
    #include <Array.au3>

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

    $column = "ServiceTag"
    $targetColumn = 0
    $sFilePath1 = @ScriptDir & "\Test2_inv.xls" ;This file should already exist
    $oExcel = _ExcelBookOpen($sFilePath1)
    If @error Then
    MsgBox(0, "Error!", "Unable to Create the Excel Object")
    Exit
    EndIf

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

    $SheetList_A = _ExcelSheetList($oExcel)
    For $y = 1 To UBound($SheetList_A) - 1
    _ExcelSheetActivate($oExcel, $y)

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

    $aArray = _ExcelReadSheetToArray($oExcel)
    If Not @error Then

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

    For $ii = 0 To $aArray[0][1]
    If StringInStr($aArray[1][$ii], $column) <> 0 Then $targetColumn = $ii
    Next
    ConsoleWrite($aArray[0][0] & ' ' & $aArray[0][1] & @CRLF)
    For $i = 0 To $aArray[0][0]
    $aArray[$i][$targetColumn] = StringReplace(StringLower($aArray[$i][$targetColumn]), 'l', 'L')
    Next
    EndIf
    _ExcelWriteSheetFromArray($oExcel, $aArray)
    Next

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

    _ExcelBookSaveAs($oExcel, @ScriptDir & "\Test3_inv.xls", "xls", 0, 1) ; Now we save it into the temp

    [/autoit]

    Mega