Suche nach letzten Wert

[dertommy]

Hallo!

Ich habe folgendes Problem:

Von Spalte A bis G stehen Werte. In Spalte A kommt es vor, dass Werte doppelt eingetragen sind, was auch so sein soll.
Nun möchte ich aber, nach dem Wert von Spalte A suchen und dass mir der letzte Wert aus Spalte G ausgegeben wird, wenn befüllt. Derzeit sucht mein Code von Beginn an der Spalte und liefert mir den ersten Wert aus der Spalte G retour. Ich will genau das Gegenteil, nämlich den letzten Wert.
Anbei mein bestehender Code:

Code:

With ThisWorkbook.Worksheets("Anweisungen")
               strFind = ActiveSheet.Cells(Target.Row, 1).Value
               Set rngFind10 = ThisWorkbook.Worksheets("Anweisungen").Columns(1).Find(What:=strFind, LookAt:=xlPart)
                DatumderletztenAuszahlung = .Cells(rngFind10.Row, 7)
End With

Ich hoffe, dass mir jemand helfen kann.
LG
LG

[Steffl]

Hallo,

teste mal

Code:

With ThisWorkbook.Worksheets("Anweisungen")
                strFind = ActiveSheet.Cells(Target.Row, 1).Value
                Set rngFind10 = ThisWorkbook.Worksheets("Anweisungen").Columns(1).Find(What:=strFind, LookAt:=xlPart, searchdirection:=xlPrevious)
                DatumderletztenAuszahlung = .Cells(rngFind10.Row, 7)
End With

[dertommy]

Hallo!

Leider nein, funktioniert nicht. Er ermittelt keinen Wert.

LG

[Steffl]

Hallo,

das kann nicht sein. Ich habe nur die Suchrichtung hinzugefügt. Und wenn mit deinem bisherigen Code was gefunden wird, dann geht es auch mit der Änderung.