Hallo liebes Forum,
ich benötige mal wieder eure Hilfe....
Ich möchte einen Wert, welcher in Zelle I:Variabel steht, in Blatt Key suchen.
Dann soll in diese Zelle der Wert zurückgegeben werden welcher sich direkt unter der Zelle des Suchergebnisses befindet.
Mit folgendem Code habe ich keinen Erfolg:
Dim ZeileAngabe As Range
Dim LastRow As Long
Dim Sucher As String
LastRow = Worksheets("Versand").Cells(Rows.Count, 9).End(xlUp).Row
Sucher = Worksheets("Versand").Cells(LastRow, 9).Value
With Worksheets("Key")
Set ZeileAngabe = .Range("AB2:AB79").Find(what:=Sucher, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext)
End With
Worksheets("Versand").Cells(LastRow, 9) = Worksheets("Key").Cells(ZeileAngabe + 1, 28).Value
Ich befürchte ich kann von dem Suchergebnis Zeilennummer nicht einfach eine hinzuaddieren...
Aber gelöst bekomme ich es dennoch nicht.
Kann mir hier jemand weiter helfen?
Danke im voraus!!!
Grüße Andre