Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.07.2011 20:14:49 |
Chris |
|
|
|
29.07.2011 22:10:38 |
Dekor |
|
|
|
30.07.2011 19:03:30 |
Chris |
|
|
Datenbank durchsuchen und Treffer-Zeile kopieren |
01.08.2011 16:35:50 |
Chris |
|
|
Von:
Chris |
Datum:
01.08.2011 16:35:50 |
Views:
855 |
Rating:
|
Antwort:
|
Thema:
Datenbank durchsuchen und Treffer-Zeile kopieren |
Hallo nochmal,
es scheint tatsächlich an den vielen Zeilen in meiner Datenbank zu liegen... Deshalb habe ich diese nun in kleinere Häppchen geteilt und gehofft das Problem damit lösen zu können. Dafür habe ich den Code ein wenig umgeschrieben:
Sub grab_patents()
n = 2
var_workbook = "C:\Users\Christian\Documents\Uni\ESADE\Thesis\data\Pharma\Test\patents.xlsm"
var_sheet_patents = "patents"
var_sheet_db = "Sheet1"
var_numasg = "numasg"
For i = 1 To 11
var_workbook_db = "C:\Users\Christian\Documents\Uni\ESADE\Thesis\data\Raw data\Patent data\Neuer Ordner\" & i & ".xlsx"
Workbooks.Open (var_workbook_db)
For Each numasg In Workbooks(var_workbook).Worksheets(var_numasg).Range("A2:A92")
var_search = numasg
For Each var_cell In Workbooks(var_workbook_db).Worksheets(var_sheet_db).Range("F2:F50001")
If var_cell = var_search Then
var_zeile = var_cell.Row
Workbooks(var_workbook_db).Worksheets(var_sheet_db).Range(Cells(var_zeile, 1), Cells(var_zeile, 35)).Copy Destination:=Workbooks(var_workbook).Worksheets(var_sheet_patents).Cells(n, 1)
n = n + 1
End If
Next
Next
Workbooks(var_workbook_db).Close SaveChanges:=False
Next
End Sub
Jetzt erhalte ich Fehler Nr. 9 "Subscript out of Range" entweder in Zeile 18 oder 20. Woran könnte es liegen?
Vielen Dank und viele Grüße
Chris
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.07.2011 20:14:49 |
Chris |
|
|
|
29.07.2011 22:10:38 |
Dekor |
|
|
|
30.07.2011 19:03:30 |
Chris |
|
|
Datenbank durchsuchen und Treffer-Zeile kopieren |
01.08.2011 16:35:50 |
Chris |
|
|