|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.07.2011 20:14:49 |
Chris |
|
|
|
29.07.2011 22:10:38 |
Dekor |
|
|
 Datenbank durchsuchen und Treffer-Zeile kopieren |
30.07.2011 19:03:30 |
Chris |
|
|
|
01.08.2011 16:35:50 |
Chris |
|
|
Von:
Chris |
Datum:
30.07.2011 19:03:30 |
Views:
846 |
Rating:
|
Antwort:
|
Thema:
Datenbank durchsuchen und Treffer-Zeile kopieren |
|
Hi Detlev,
leider besteht das Problem immernoch (auch mit dem kleineren Bereich). Nun bekomme ich allerdings den Fehler 400 (wenn ich das Makro über das Worksheet ausführe und 1004 wenn ich es direkt aus dem VB Editor heraus ausführe... Muss man das verstehen? :)
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:F5000")
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
|
- 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 |
|
|
Datenbank durchsuchen und Treffer-Zeile kopieren |
30.07.2011 19:03:30 |
Chris |
|
|
|
01.08.2011 16:35:50 |
Chris |
|
|