Interop Excel.Find

Question

Hallo,

Ich möchte gerne in Excel Zellen finden.
Hier habe ich aber drei aufeinanderfolgende Zellen-Values, nach denen Ich suchen muss.

Also gesucht werden soll nach Rows, in denen A="test1", B="Test222" und C="blabla" ist. Also drei aufeinanderfolgende Strings.
Die Coloumns sind hierbei immer fix (A-C). Es soll nur eine Range für Zeilen zurückgegeben werden, in denen alle drei Zellen stimmen, also nicht nur eine oder zwei.

Hat jemand eine Idee, wie ich sowas machen kann?

Gruß Jonas

Answer 1

Hallo Jonas,

Eine mögliche Lösung wäre die normale Suche nach "test1"durchzuführen und beim jeden Treffer prüft man halt ob die weitere Cells auch übereinstimmen (Cells(r, c+1) = "Test222" und Cells(r, c+2) = "blabla")

Sub FindMoreCellsMatched()
    Dim r As Range
    Dim lngLastRow As Long
    
    Set r = ActiveSheet.Cells(1, 1)
    lngLastRow = 0
    Set r = ActiveSheet.Cells.Find("test1", r, xlFormulas, xlWhole, xlByRows, xlNext)
    If Not r Is Nothing Then
        Do
            'check if the other two cells are matching too
            If CStr(ActiveSheet.Cells(r.Row, r.Column + 1).Value) = "Test222" And CStr(ActiveSheet.Cells(r.Row, r.Column + 2).Value) = "blabla" Then
                'ha! got ya!
                'color you up
                ActiveSheet.Rows(r.Row).Interior.Color = vbYellow
            End If
            lngLastRow = r.Row
            Set r = ActiveSheet.Cells.FindNext(r)
        Loop Until r.Row <= lngLastRow
    End If
    
End Sub

 

Viele Grüße,

Bogdan

---

Ich bin gerne bei den Foren. Es kommt von Herzen. Es wird aber keine implizite oder sonstige Garantie für die geposteten Antworte / Informationen gewährt. Hier auch die Forenregeln.

Answer 2

Hallo Jonas,

Hat es geklappt?

Danke und viele Grüße,

Bogdan

---

Ich bin gerne bei den Foren. Es kommt von Herzen. Es wird aber keine implizite oder sonstige Garantie für die geposteten Antworte / Informationen gewährt. Hier auch die Forenregeln.

Answer 3

Dieser Thread wurde in Diskussion umgewandelt. Weitere Beiträge / Nachfragen sind natürlich möglich und willkommen J /Bogdan

---

Ich bin gerne bei den Foren. Es kommt von Herzen. Es wird aber keine implizite oder sonstige Garantie für die geposteten Antworte / Informationen gewährt. Hier auch die Forenregeln.