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

Ansicht des Beitrags:
Von:
Chris		 Datum:
29.07.2011 20:14:49		 Views:
1757		 Rating:
     
Antwort:
  Ja
Thema:
Datenbank durchsuchen und Treffer-Zeile kopieren

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

 

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