Hallo zusammen,
ich stehe leider mal wieder ein wenig auf Kriegsfuß mit dem unten stehenden Makro.
Sinn und Ziel des Makros ist, eine große Datenbank (db1.xlsx) nach einer ID zu durchsuchen und im Falle eines Treffers die entsprechende Zeile aus der Datenbank in ein anderes Tabellenblatt in der "pharma_chris_v01.xlsm" Mappe zu kopieren...
Dummerweise bekomme ich einen 1004 Run-time error (Application or object defined error aber ich habe keine Ahnung wo in meinem code der Fehler produziert wird... Ich wäre über jegliche Hilfe sehr dankbar!
Sub patents()
Dim n As Long
Dim zeile As Long
n = 2
For Each zelle In Workbooks("pharma_chris_v01.xlsm").Worksheets("Patent_Portfolios_2008").Range("I3:I93")
var_numasg = zelle.Value
For Each zelle2 In Workbooks("db1.xlsx").Worksheets("db1").Range("F2:F500000")
If zelle2.Value = var_numasg Then
zeile = zelle2.Row
Workbooks("db1.xlsx").Worksheets("db1").Range(Cells(zeile, 1), Cells(zeile, 35)).Copy Destination:=Workbooks("pharma_chris_v01.xlsm").Worksheets("Patents").Cells(n, 1)
n = n + 1
End If
Next
Next
End Sub
|