VLookup meldet "Objektdefinierenden Fehler"
Pete
ich hätte eine Frage bzgl. der VLookup Funktion in VBA.
Ich habe in Tabelle1 eine Zwei Spalten mit Terminen. Diese sollen in Tabelle2 per VLookup in einen Kalender übertragen werden. Dabei ist im Kalender die jeweils erste Spalte das Datum des Tages im Format "01 Di". In Tabelle1 ist in der Spalte A das Datum des Termins und in Spalte B die Bezeichnung. wechselt man in Tabelle2 so soll automatisch das Makro gestartet werden un die Termine aktualisiert werden. Deshalb steht der Code in der Tabelle2! Doch leider kommt dabei immer die Fehlermeldung "Die VLookup-Eigenschaft des WorksheetFunction-Objetes kann nicht zugeordnet werden."
Folgenden Code habe ich erstellt:
Private Sub Worksheet_Activate()
Dim k As Integer
Dim i As Integer
For k = 4 To 28 Step 2
For i = 3 To 31
If Application.WorksheetFunction.VLookup(Sheets(2).Cells(i, k - 1), Sheets(1).Range("A3: _
_
_
B29"), 2, False) = "" Then
Else
Sheets(2).Cells(i, k) = Application.WorksheetFunction.VLookup(Sheets(2).Cells(i, k - _
_
_
1), Sheets(1).Range("A3:B29"), 2, False)
End If
Next i
Next k
End Sub
Ich wäre sehr dankbar für jede Anregung!
VG Peter