Thema Datum  Von Nutzer Rating
Antwort
29.07.2011 20:14:49 Chris
NotSolved
29.07.2011 22:10:38 Dekor
NotSolved
30.07.2011 19:03:30 Chris
NotSolved
Blau Datenbank durchsuchen und Treffer-Zeile kopieren
 01.08.2011 16:35:50 Chris
NotSolved

Ansicht des Beitrags:
Von:
Chris		 Datum:
01.08.2011 16:35:50		 Views:
857		 Rating:
     
Antwort:
  Ja
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

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
29.07.2011 22:10:38 Dekor
NotSolved
30.07.2011 19:03:30 Chris
NotSolved
Blau Datenbank durchsuchen und Treffer-Zeile kopieren
 01.08.2011 16:35:50 Chris
NotSolved