ich möchte in Sheet1 in einem definierten Bereich die Werte jeder einzelnen Zelle in Sheet2 suchen. Wenn gefunden soll Excel diesen Wert in Sheet1 ausgeben. Ich erhalte hier die Meldung With Block Variable nicht festgelegt....Was muss geändert werden?
Danke und Gruß
Chris
Sub suchen()
Dim zelle As Range
Dim zelle2 As Range
Dim rngBer As Range
Set rngBer = ActiveSheet.Range("G6:G57")
For Each zelle In rngBer
set zelle2 = Sheets("MainList").Range("K:K").Find(what:=zelle, LookIn:=xlValues, lookat:= _
xlWhole, searchdirection:=xlPrevious) ' (von unten Suchen)
If zelle.Value = zelle2.Value Then
zelle.Offset(, 3).Value = zelle2.Value
End If
Next
End Sub