Vergleichen von text in Zelle mit "=text" in einer anderen Zelle mit excel-VBA

Ich versuche zu vergleichen Zellenwerte in einer Schleife mit VBA. Die Schleife, die ich verwendet wurde, war dieser

    For Each r In Rng
If Cells(r.Row, var1) = "string" And Cells(r.Row, var2) = Variable Then
    Cells(r.Row, var3) = "targetstring1"
ElseIf Cells(r.Row, var1) = "string2" And Cells(r.Row, var2) <> Variable Then
    Cells(r.Row, var3) = "targetstring2" 
end if
Next r

Ich versuche ermöglichen die Eingabe die Bedingungen, um eine input-sheet in der gleichen excel-Arbeitsmappe, aber ich brauche, um es dynamisch. Zum Beispiel, in der Eingabe-Zellen will ich "= "string" und "< "> "XX"; " XX " ist der gleiche Wert wie die Variable. Dies würde es ermöglichen, die =/<> werden kontrolliert von der input-Blatt anstelle des Codes und ermöglichen mehr Flexibilität für den Anwender zur Anpassung der Bedingungen, die zu Ihrer situation.

Ist das möglich? Ich habe versucht, verwenden Sie die evaluate () - Funktion, aber nicht in der Lage, um es an die Arbeit.

jede Hilfe ist willkommen.

Dank!

Hat der erste Teil der if-Anweisung arbeiten, wie Sie wollen ?

InformationsquelleAutor DGy | 2015-07-10

  1. 1

    Test Eingang:

    Vergleichen von text in Zelle mit

    Code:

    Sub Tester()

    Dim rw As Range

    For Each rw In Range("A2:C10").Rows
        If rw.Cells(1) <> "" Then
            rw.Cells(3).Value = Eval(rw.Cells(1), rw.Cells(2))
        End If
    Next rw

End Sub


Function Eval(rngVal As Range, rngCrit As Range)

    Dim addr As String, op As String
    addr = rngVal.Address(False, False)
    op = rngCrit.Value

    Eval = rngVal.Parent.Evaluate(addr & op)
End Function

    Ergebnis:

    Vergleichen von text in Zelle mit

    Bei der Eingabe von Kriterien müssen Sie Sie möglicherweise formatieren Sie Ihre Zellen als Text oder voranstellen ' um zu verhindern, dass Excel versucht, behandeln Sie es wie ein Formel

    InformationsquelleAutor Tim Williams

Schreibe einen Kommentar