HI

Ich habe ein Problem mit folgender Code Zeile.

rückgabe = Application.WorksheetFunction.HLookup(feld, Selection, 1, True)

In der "Testversion" die ich programmiert habe funktioniert sie tadellos. Wenn ich jetzt aber das ganze in meine Originaldatei übertragen will sagt er mir immer: "Die HLookup-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden. -Laufzeitfehler 1004"

Little Facts:

*Testversion Dateiname: Test

*Testversion Arbeitsblatt: Tabelle1

*Orginalversion Dateiname: Berechnung

*Originalversion Arbeitsblatt:AWF50

Hier der gesamte Code zum nachvollziehen:

Sub wverweis()

' wverweis Makro

Dim lngC As Long
Dim rückgabe
Dim auswahl As Range, feld As Range, ausgabe As Range
Dim i As Integer
  
  
For lngC = 24 To 35

Set feld = Worksheets("AWF50").Range("F" & lngC)
Set ausgabe = Worksheets("AWF50").Range("K" & lngC)


Set auswahl = Rows(12).Find(what:="tofind", LookIn:=xlValues, lookat:=xlWhole)
  
   If Not auswahl Is Nothing Then
  
       Range(Cells(12, 9), auswahl.Offset(0, -1)).Select
           rückgabe = Application.WorksheetFunction.HLookup(feld, Selection, 1, True)
           If rückgabe = feld.Value Then ausgabe = "" Else: ausgabe = feld
          
       ausgabe.Select
            
      
   Else
       MsgBox "TOFIND fehlt am Ende des Bereichfeldes"
   End If
    
Next lngC
End Sub

Danke! asdf