suchen in datei
02.12.2003 15:12:08
miriam
Es geht darum in einer Tabelle vorgegebene Namen zu suchen und dann diese Zeilen in eine Zwischendatei kopieren. "hugo" wurde als object definiert.
Bei Cells.Find kommt der Fehler '91'.
Wer kann mir helfen?? Hier erstmal der Code:
For i = 13 To 32
For j = 2 To 21
Workbooks("a.xls").Worksheets("a").Activate
Cells(i, 1).Select
Set hugo = Workbooks("a.xls").Worksheets("a").Cells(i, 1)
Workbooks("b.xls").Worksheets("a").Activate
Cells.Find(What:=hugo, After:=Cells(7, 1), LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False).Activate
ActiveCell.EntireRow.Select
Selection.Copy
Workbooks("c.xls").Worksheets("a").Activate
'Cells(j, 1).Activate
ActiveSheet.Paste
'Cells(j + 1, 1).Select
Workbooks("b.xls").Worksheets("a").Activate
Cells(7, 1).Activate
Next j
Next i
Vielen Dank im Voraus