PDA

Vollständige Version anzeigen : SVerweis mit VBA


Jimpanse88
08.07.2015, 16:25
Hallo,

ich möchte eine Tabelle Auswerten. Soll alles automatisch gehen. Es braucht z.B. einen SVerweis.


Sub FillFormula()
Dim i As Double, j As Double

j = LastRow(1, 1)
Worksheets("Operations").Activate

For i = 2 To j
Range("N" & i).Activate
ActiveCell = WorksheetFunction.VLookup(Range("A" & i), Sheets(2).[$A2:$O100], 12, False)
Next i

End Sub



Was stimmt an meinem SVerweis nicht?

Folgende Fehlermeldung erhalte ich:

Laufzeitfehler 1004. Die VLookup-Eigenschaft des WorksheetFunction kann nicht zugeordnet werden.

Ich verstehe es nicht, da es bereits funktioniert hatte. Dann habe ich weitere Subs und Tabellenblätter hinzugefügt. Seitdem gehts nicht mehr. Habe versucht, alles rückgängig zu machen, erfolglos.

MFG
Jimpanse

Hajo_Zi
08.07.2015, 16:31
es fehlt Range vor dem Bereich.

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

Jimpanse88
08.07.2015, 16:35
Ok, habe ich geändert zu:



ActiveCell = WorksheetFunction.VLookup(Range("A" & i), Sheets(2).Range([$A2:$O100]), 2, False)



Führt zu dieser Fehlermeldung:

Laufzeitfehler 1004

Anwendungs- oder objektdefinierter Fehler.


Wie gesagt, es lief für einen Moment so. An der Funktion hatte ich nichts mehr geändert. Das ist eigenartig, oder?

Gruß
Jimpanse

Hajo_Zi
08.07.2015, 16:38
warum beim zweiten mal 2xRange. Ich hatte übersehen das es [] waren.
Kein weiteren Ansatz.

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Jimpanse88
08.07.2015, 16:43
Ich hatte deinen ersten Kommentar so verstanden, dass für das im zweiten Argument von VLookup, "Range" fehlt.

Gruß
Jimpanse

Jimpanse88
09.07.2015, 07:06
Guten Morgen Welt,

Problem gelöst. Der Code im ersten Beitrag war richtig.

Der Fehler bestand darin, dass die Daten für Quelle und Ziel vertauscht wurden, da diese falsch benannt waren. Was für ein schimpansiger Fehler!
Vielleicht kanns ja nochmal jemand gebrauchen :)

Ciao
Jimpanse88