Find Problem
14.07.2004 11:24:35
TOM
Ich habe wieder einmal ein Problem mit Find.
Ich möchte in der ersten Zeile nach "Stator-115" suchen und dort unter der letzten beschriebenen Zeile Text einfügen.
Mit meinem Code bekomme ich aber immer die Fehlermeldung 91!?
Sub Eintragen()
Selection.AutoFilter Field:=1, Criteria1:="115.St"
Range(Cells(2, 2), Cells(Range("A2").End(xlDown).Row, 9)).Copy
Sheets("115").Activate
Cells.Find("Stator-115", , xlValues, xlWhole, xlByRows, xlNext, True).End(xlDown).Offset(1, 0).PasteSpecial xlPasteFormulas
End Sub
Besten Dank für einen Tip
TOM