Office: (Office 2010) VBA: vlookup in einer Schleife funktioniert nicht

Hallo zusammen,

ich hab hier ein lästiges Problem mit einer vlookup-Funktion innerhalb einer Schleife und komme einfach nicht dahinter, woran es liegt.

Vielleicht sieht jemand von euch meinen Fehler?

Kurz vorab zur eigentlichen Tabelle:
Ich lese aus dem Windows Eventlog die An- und Ausschaltzeit des PCs aus und lasse diese temporär in eine Excel-Datei eintragen. Nach dem Schließen der Datei werden die Daten wieder gelöscht bzw. beim nächsten Aufruf überschrieben.
Die Datei dient dazu, den Kollegen ihre ungefähre Arbeitszeiten

• am aktuellen Tag -und-
• der letzten sieben Tage

anzuzeigen.

Die "Kommenzeiten" stehen in Spalte A (Datum) und B (Zeit), die "Gehenzeiten" in Spalte D (Datum) und E (Zeit).

Damit ich eine chronologische Abfolge der Zeiten für die letzten sieben Tage habe, baue ich in Spalte H-J eine weitere kleine Tabelle auf, die von heute an das Datum 8 Tage zurückrechnet.
Zu jeden Datum soll dann in Spalte I die Kommenzeit und in Spalte J die Gehenzeit eingetragen werden.

Nun gibt es aber Tage, an denen nicht gearbeitet wird, Wochenende z. B. oder Feiertage bzw. Urlaub. An diesen Tagen liefert das Eventlog natürlich kein Datum und die passende Zeit dazu.
Die WSF vlookup liefert also verständlicherweise einen Fehler. Und diesen Fehler abzufangen bekomme ich irgendwie nicht hin.

Nun mal konkret zum Code für die Kommenzeiten:


Public Sub KommenZeiten()
Dim ws As Worksheet
Dim wsf As WorksheetFunction
Dim rngKommen As Range
Dim i As Integer
Dim dKommenIst As Date

Set ws = ThisWorkbook.Sheets(1)
Set wsf = Application.WorksheetFunction
Set rngKommen = ws.Range("A:B")

For i = 5 To 12
On Error GoTo FehlerKommen
dKommenIst = wsf.VLookup(ws.Cells(i, 8), rngKommen, 2, False)
Weiter:
ws.Cells(i, 9).Value = dKommenIst
Next
Exit Sub

FehlerKommen:
dKommenIst = Format(0, "hh:nn:ss")
GoTo Weiter

End Sub


Als Datum haben wir heute:
01.02.2016
31.01.2016
30.01.2016
29.01.2016
[...]
25.01.2016

Für den 01.02.2016 wird die heutige Uhrzeit eingetragen.
Für den 31.01.2016 wird 00:00:00 eingetragen
Ab dem 30.01.2016 kommt die Fehlermeldung
"Laufzeitfehler 1004: Die vlookup-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden."

Warum schlägt das nun auf einmal fehl?
Ich habe doch gesagt, dass bei einem Fehler zu FehlerKommen gesprungen werden soll und anschließend wieder zur Sprungmarke Weiter.

Ich hab es dann mal mit "On Error resume next" probiert.
In diesem Fall hab ich dann für den 31. und 30.01.2016 die gleichen Kommenzeiten wie beim 01.02.2016. Und das kann eigentlich auch nicht sein. Hier hab ich dann schon einmal probiert, die Variable zu "leeren", also:


...
dim dKommenIst as Date
dim reset_dKommenIst as Date
...
For i = 5 to 12
dKommenIst = reset_dKommenIst
...
Next
...



Aber auch hier ständig der Laufzeitfehler 1004...

Ich bin jetzt echt am verzweifeln. Seh ich den Wald vor lauter Bäumen nicht mehr?

:)

 

Hallo,

versuch's mal ohne WorksheetFunction:
Code:

Grüße
EarlFred

 

EarlFred, vielen Dank!
Das war die Lösung, es funktioniert! *Smilie

Merciii!