habe ein kleines Problem.
Über VBA will ich in einer Range zu einer bestimmten Zelle einen anderen Wert aus einer benachbarten Zelle auslesen. Das klappt soweit solange diese Zelle ein String ist. Jetzt habe ich aber auch Zahlen als Suchkriterium und dann bekomme ich einen Fehler:
Laufzeitfehler 1004
Die Vlookup-Eigenschaftdes Worksheetfunktion-Objekts kann nicht zugeordnet werden.
Hier mal mein Code:
Dim iCriteria As Variant, iCriteria2 As Variant
Dim sErgebnis As Variant, sErgebnis2 As Variant
'On Error GoTo ERRORHANDLER
Workbooks("Ideenblatt_Verbesserungsvorschlagswesen.xls").Activate
iCriteria = Range("Kürzel").Value
Workbooks("Uebersicht_Verbesserungsvorschlagswesen.xls").Activate
sErgebnis = WorksheetFunction.VLookup( _
iCriteria, Range("Mitarbeiter_Abt"), 2, 0)
iCriteria2 = sErgebnis
sErgebnis2 = WorksheetFunction.VLookup( _
iCriteria, Range("Mitarbeiter_Abt"), 4, 0)
Bei sErgebnis2 = worksheet... steigt er mit dem Fehler aus. iCriteria2 ist wenn es klappt "pa" und wenn es nicht klappt zB. "132".
Hat da einer einen Tipp?
mfg
Kay