vlookup
10.08.2007 16:39:00
Rainer
ich habe folgende files. ich lade sie mal beide kurz rauf, da mir der fehler sehr dubios vorkommt und ich mir vorstellen kann, dass man nur mit dem code nicht drauf kommen könnte. falls doch umso besser ;-)
http://www.uploadagent.de/files/1186756569/TMS_01_Test.xls -> matrix
http://www.uploadagent.de/files/1186756715/TOTAL-Kundenklassifikation_Test.xls -> Primärschlüssel (Kundenklassifikation)
Das File Kundenklassifikation enthält folgenden code:
Option Explicit
Sub Transportdatenlesen()
' liest transportkosten ein
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dim rngQuelle As Range
Dim lngZeile As Variant
Dim lngAbZeile As Long
Dim lngBisZeile As Long
Dim lngSpalteZielA As Long
Dim wksQuelleSpalteAnfang As Long
Dim wksQuelleSpalteZiel As Long
lngSpalteZielA = 1 ' =A
lngAbZeile = 2
wksQuelleSpalteAnfang = 3
wksQuelleSpalteZiel = 4
Dim wbkQuelle As Workbook
' fragt ab ob file schon geöffnet ist
On Error Resume Next
Set wbkQuelle = Workbooks("TMS_01_Test.xls")
On Error GoTo 0
If wksQuelle Is Nothing Then
Set wbkQuelle = Workbooks.Open("J:\FinanzControlling\Leitung\Kundenrentabilität\Projekt 2007\ _
_
_
Daten\TMS_01_Test.xls")
End If
Set wksQuelle = Workbooks("TMS_01_Test.xls").Worksheets("tabelle1")
Set wksZiel = Workbooks("TOTAL-Kundenklassifikation_Test.xls").Worksheets("Kundenklassifikation _
_
_
")
lngBisZeile = wksZiel.Cells(Rows.Count, lngSpalteZielA).End(xlUp).Row
' macht schlaufe für sverweis
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 + 6).Value = _
Application.WorksheetFunction.VLookup(wksZiel.Cells(lngZeile, lngSpalteZielA), wksQuelle. _
Range(wksQuelle.Columns(wksQuelleSpalteAnfang), wksQuelle.Columns(wksQuelleSpalteZiel)), 2, _
False)
Else
wksZiel.Cells(lngZeile, lngSpalteZielA + 6).Value = "Hab da nix gefunden!"
End If
Next
' schliesst quelldatei
ActiveWorkbook.Close
End Sub
nun, sobald ich das makro starte, wird das andere file geöffnet und die funktion vlookup beginnt. irgendwann krieg ich dann den Laufzeitfehler 1004, Die Vlookupeigenschaft des Worksheetfunction-Objektes kann nicht zugeordnet werden.
zuvor hatte ich das selbe Problem, da gewisse spalten nicht als Zahlen formatiert wurden. dies ist jedoch jetzt behoben. Er hört mittendrin auf, bei einem Wert den er nicht findet. Falls dies passiert hab ich ihn aber angewiesen "Hab nix gefunden" zu sagen. ich bin nun seit stunden dran, es geht mir einfach nicht in den kopf...warscheinlich bin ich einfach zu doof dazu...
kann mir jemand helfen?
gruss
andy