|
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
|