Excel SVERWEIS "Objekt Erforderlich" Fehlermeldung

Hier ist eine weitere einer von denen "so einfach ist es zum Verrücktwerden, wenn es nicht funktioniert" - Typ Fragen.

Habe ein makro weiter unten. Es basiert auf einem ActiveX-Kombinationsfeld-was ist mit C3. Wenn der Benutzer eine Auswahl vornimmt, wird das makro soll sich auf die Suche, die Auswahl, die Sie auf einem anderen Arbeitsblatt, identifizieren isbn (Spalte 2), und kehren Sie zu der ursprünglichen Arbeitsblatt zum einfügen in die entsprechende Zelle (C4).

Durchlaufen, wirft er ein "Objekt Erforderlich" Fehler in der isbn.Wählen Sie.

Ich bin sicher, es ist etwas einfach. Immer ist. Kannst du mir die hand?

Private Sub TitleSelection_Change()

Dim lookFor As Range
Dim rng As Range
Dim isbn As Variant

Set lookFor = Sheets("AAP Dashboard").Range("C3")
Set rng = Sheets("Books").Columns("A:I")

isbn = Application.VLookup(lookFor, rng, 2)

Application.ScreenUpdating = False

isbn.Select
Selection.Copy
Sheets("AAP Dashboard").Range("C4").Select
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub
  • vlookup gibt einen Wert zurück, nicht eine Reihe. Sie können nicht select Ihre isbn. Versuchen Sheets("AAP Dashboard").Range("C4").Value = isbn
InformationsquelleAutor jeremytripp | 2014-01-24
  1. 2

    Können Sie nicht wählen Sie isbn denn es ist die Variante-Objekt ist, wird nicht Mitglied.

    Versuchen:

    Dim lookFor As Variant
Dim rng As Range
Dim isbn As Variant

lookFor = Sheets("AAP Dashboard").Range("C3").Value
Set rng = Sheets("Books").Columns("A:I")

isbn = Application.WorksheetFunction.VLookup(lookFor, rng, 2, FALSE)

Application.ScreenUpdating = False
Sheets("AAP Dashboard").Range("C4").Value = isbn
Application.ScreenUpdating = True

    Ich denke, Sie sind fehlt ein Objekt zwischen Anwendung und SVERWEIS hinzufügen "WorksheetFunction". Beachten Sie auch, dass SVERWEIS liefert den Wert, die es findet, in der Spalte 2, so dass keine Notwendigkeit zu kopieren und einzufügen. Schließlich beachten Sie, dass der SVERWEIS das erste argument ist ein Wert nicht ein range-Objekt, also änderte ich lookFor zu Variante

    • Danke @Kelvin, für eine ausführliche Erklärung und für das funktionierende Beispiel. Genau das, was ich brauchte.
    InformationsquelleAutor Kelvin Dealca
  2. 2

    Können Sie leicht ändern Sie Ihren code zu bekommen gewünschten Ergebnis:

    Set lookFor = Sheets("AAP Dashboard").Range("C3")
Set Rng = Sheets("Books").Columns("A:I")

isbn = Application.Match(lookFor, Rng.Columns(1))

If Not IsError(isbn) Then
    Rng.Cells(isbn, 1).Select
    'your code here
End If

    Btw, versuchen Sie zu vermeiden Select und Active... Aussagen (wie Sie zu vermeiden)

    • Vergessen Sie nicht, zu prüfen, ob die isbn ist ein Fehler: Wenn ISTFEHLER(isbn) Dann ..
    • danke!!! du hast Recht!
    InformationsquelleAutor Dmitry Pavliv
Schreibe einen Kommentar