Die Eigenschaft VLookup der WorksheetFunction-Klasse konnte nicht abgerufen werden. Fehler 1004

Question

Ich versuche, eine Abfrage an Access zu senden, um einen bestimmten Wert meines Arbeitsblatts auszufüllen. Ich würde dieses Arbeitsblatt erhalten, indem ich den Login-Namen des aktuellen Benutzers erhalte und eine Spalte durchsuche. Diese Spalte wird gemäß einer Spalte im Zugriff aktualisiert. Der Wert, den ich benötigen würde, ist in der Spalte nach RECHTS der Spalte, die ich durchsuche. Ich habe den Code unten als temporären Try-out meine VLookup an der Arbeit

Private Sub CommandButton1_Click() 
    Dim user, cUser As String 
    user = (Environ$("Username")) 
    cUser = Application.WorksheetFunction.VLookup(user, Worksheets("Sheet1").Range("C2:C1000"), -2, False) 
    Worksheets("Sheet1").Range("F1").Value = cUser 
    End Sub 

Ich versuche, den Wert zu erhalten, die ich in der Zelle F1 benötigen. Wenn das funktioniert, würde ich den Wert in eine Variable setzen und diese zu meiner Abfrage hinzufügen. Ich werde auch Fehlerbehandlung einfügen, um sicherzustellen, dass der Code funktioniert, aber jetzt will ich nur, dass es auf meinem 1-Wert funktioniert, von dem ich weiß, dass er in der Spalte ist.

Answer 1

versuchen Sie stattdessen:

Private Sub CommandButton1_Click() 
    Dim user As String, cUser As String '// Note you have to declare the type each time! 
    user = Environ$("USERNAME") 
    cUser = Sheets("Sheet1").Range("C:C").Find(user).Offset(, -2).Value 
    Sheets("Sheet1").Range("F1").Value = cUser 
End Sub 

Welche wieder vereinfacht werden kann:

Private Sub CommandButton1_Click() 
    Sheets("Sheet1").Range("F1").Value = Sheets("Sheet1").Range("C:C").Find(Environ$("USERNAME")).Offset(, -2).Value 
End Sub 

A vlookup ist einfach nicht geeignet für das, was Sie zu tun versuchen.