Cells.Find funktion Error!
30.01.2006 14:01:45
sven
--------------
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
Anzeige