--------------
Dim i
Dim zellenname
Dim Name2
If Cells(i, 31) > 0 Then
zellenname = Cells(i, 4)
Sheets(2).Select
Range("A1").Select
Name2 = Cells.Find(What:=zellenname, LookAt:=xlWhole).Row
--------------------
habe ich was falsch gemacht? oder wie lautet die funktion.
mfg sven