ich habe folgenden code:
Option Explicit
Sub MitVlookup()
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dim rngQuelle As Range
Dim lngZeile As Long
Dim lngAbZeile As Long
Dim lngBisZeile As Long
Dim lngSpalteZielA As Long
Dim wksQuelleSpalteAnfang As Long
Dim wksQuelleSpalteZiel As Long
lngSpalteZielA = 1 ' =A
lngAbZeile = 1
wksQuelleSpalteAnfang = 3
wksQuelleSpalteZiel = 4
Dim wbkQuelle As Worksheet
On Error Resume Next
Set wbkQuelle = Workbooks("testfile2.xls")
On Error GoTo 0
If wksQuelle Is Nothing Then
Set wbkQuelle = Workbooks.Open("C:\Documents and Settings\testfile2.xls")
End If
Set wksQuelle = Workbooks("testfile2.xls").Worksheets("tabelle1")
Set wksZiel = Workbooks("testfile.xls").Worksheets("tabelle1")
lngBisZeile = wksZiel.Cells(Rows.Count, lngSpalteZielA).End(xlUp).Row
For lngZeile = lngAbZeile To lngBisZeile
If Application.WorksheetFunction.CountIf(wksQuelle.Range(wksQuelle.Columns( _
wksQuelleSpalteAnfang), wksQuelle.Columns(wksQuelleSpalteZiel)), wksZiel.Cells(lngZeile, _
lngSpalteZielA)) > 0 Then
wksZiel.Cells(lngZeile, lngSpalteZielA + 1).Value = _
Application.WorksheetFunction.VLookup(wksZiel.Cells(lngZeile, lngSpalteZielA), wksQuelle. _
Range(wksQuelle.Columns(wksQuelleSpalteAnfang), wksQuelle.Columns(wksQuelleSpalteZiel)), 2, _
False)
Else
wksZiel.Cells(lngZeile, lngSpalteZielA + 1).Value = "Hab da nix gefunden!"
End If
Next
End Sub
ich möchte, dass beim ausführen des makros, das testfile 2 geöffnet wird, damit der rest weiterrattern kann. am schluss soll das testfile 2 wieder geschlossen werden. irgndwie bringt er mir immer eine fehlermeldung, ich weiss jedenfalls nicht wieso. kann jemand helfen?
gruss andy