VLookup verursacht Laufzeitfehler
02.10.2015 10:27:12
Franky
brauche mal wieder eure Hilfe, komme einfach nicht auf das Problem.
Ich habe folgenden Code
z = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For zeile = 2 To z
If Cells(zeile, 8) = LiefNr Then
For Azeile = zeile To z
If Cells(Azeile, 1) = Cells(Azeile + 1, 1) And Cells(Azeile, 3) Cells(Azeile + 1, 3) _
Then
menge = 0
For Bzeile = Azeile + 1 To z
If Cells(Bzeile, 1) = Cells(Bzeile + 1, 1) And Cells(Bzeile, 3) = Cells(Bzeile + 1, 3) _
Then
menge = menge + Cells(Bzeile, 6)
Else
gesmenge = (Cells(Azeile, 6) - menge - Cells(Bzeile, 6)) / (Cells(Azeile, 6) / 100)
NoteMenge = WorksheetFunction.VLookup(gesmenge, Workbooks("Datei1.xls").Worksheets(" _
Stammdaten").Range("E43:F53"), 2, True)
TDiff = DateDiff("d", Cells(Azeile, 7), Cells(Bzeile, 7), vbMonday)
NoteDate = WorksheetFunction.VLookup(TDiff, Workbooks("Datei1.xls").Worksheets(" _
Stammdaten").Range("B43:C55"), 2, True)
Exit For
End If
Next
GesNoteMenge = GesNoteMenge + NoteMenge
GesNoteDate = GesNoteDate + NoteDate
Azeile = Bzeile
Else
End If
Next
End If
Next
Und nun zu meinem Problem, wenn ich das Programm starte bekomme ich immer die Fehlermeldung "Laufzeitfehler 1004: VLookup-Eigenschaften des WorksheetFunction-Objektes kann nicht zugeordnet werden.".
Wenn ich debugge zeigt er mir die Zeile "NoteDate=..." an.
Komischerweise wenn ich mit über Msgbox NoteDate ausgeben lassen funktioniert es, und ist sogar richtig....
achso, die Variablen sind als Integer bzw als Long deklariert.
Kann mir das jemanden erklären....
Vielen Dank....