Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige