suchen in datei

Forumthread: suchen in datei

suchen in datei

02.12.2003 15:12:08

miriam

Liebe Leute, ich habe ein großes Problem mit dem berühmten Laufzeitfehler '91'.
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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: suchen in datei

02.12.2003 15:49:10

Nike
AW: suchen in datei

02.12.2003 16:04:35

miriam
AW: suchen in datei

02.12.2003 16:36:13

Nike
AW: suchen in datei

02.12.2003 18:59:49

miriam

AW: suchen in datei

02.12.2003 15:49:10

Nike

Hi,

mal ohne das ganze select Zeug und nem eigenen Range:

dim rngFind as Range

For i = 13 To 32
For j = 2 To 21
Set hugo = Workbooks("a").Worksheets("a").Cells(i, 1)

with Workbooks("b").Worksheets("a")
set rngFind =.Cells.Find(What:=hugo, After:=.Cells(7, 1), LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False)
if not rngFind is nothing then
rngFind.EntireRow.Copy Workbooks("c").Worksheets("a").Cells(j, 1).EntireRow
end if
Next j
Next i

Bye

Nike

P.S. Kleiner Tip noch bei den XL FAQs findest du das hier:
http://xlfaq.herber.de/xlbasics/main_sel.htm

AW: suchen in datei

02.12.2003 16:04:35

miriam

danke, aber der fehler kommt immer noch...leider

AW: suchen in datei

02.12.2003 16:36:13

Nike

Hi,

da fehlt mir doch glatt der end with


Sub copyRow()
Dim rngFind As Range
For i = 13 To 32
For j = 2 To 21
Set hugo = Workbooks("a").Worksheets("a").Cells(i, 1)
With Workbooks("b").Worksheets("a")
Set rngFind = .Columns(1).Find(What:=hugo, After:=.Cells(7, 1))
End With
If Not rngFind Is Nothing Then
rngFind.EntireRow.Copy Workbooks("c").Worksheets("a").Cells(j, 1).EntireRow
End If
Next j
Next i
End Sub

Bye

Nike

AW: suchen in datei

02.12.2003 18:59:49

miriam

vielen vielen dank für die prompte hilfe. jetzt geht alles

gruß
miriam

Beliebteste Forumthreads (12 Monate)

Forumthread: suchen in datei

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread