Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Vlookup

VBA Vlookup
15.04.2003 09:47:55
Robert
Hallo,

Ich hoffe Ihr könnt mich wieder mal helfen.

Dieser Worksheet Function funktioniert einwandfrei aber braucht zuviel Platz. Ich habe deswegen versucht ein Vlookup in VBA zu schreiben aber ich komme da leider nicht weiter. Ich habe übrigens versucht auf Internet Vlookup Info in VBA zu finden, leider ohne Erfolg


=IF(A9="";"";IF(F3=2;IF(ISNUMBER(VLOOKUP(Employee2!A9;Employee2!$A$9:$A$28;1;FALSE));"Kollision";VLOOKUP(Employee2!A9;Employee2!$A$9:$A$28;1;FALSE));IF(ISERROR(VLOOKUP(Employee2!A9;Employee2!$A$9:$A$28;1;FALSE));"")))

Es wäre einfach schön, wenn ihr mich weiter helfen könnt.


Vielen Dank und Grüsse

Robert


5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBA Vlookup
15.04.2003 10:47:03
Nike

Hi,
mal ein Ansatz, da ich nicht die ganze if Funktion nachbauen
möchte ;-)

Sub test2()
Dim wks As Worksheet
Set wks = Worksheets("Employee2")
MsgBox WorksheetFunction.VLookup(Range("A9"), wks.Range("A9:A28"), 1, False)
End Sub

Bye

Nike


Re: VBA Vlookup
15.04.2003 11:15:26
Robert

Hallo,

Danke schon mal für deine Hilfe.

Zusätzlich muss ich dir noch erwähnen, dass der Vlookup in Zelle
C9 das Ergebnis zeigen müsste

Sollte das dann nicht irgendwie wie unten angezeigt gehen?

Sub test2()

Dim wks As Worksheet
Set wks = Worksheets(2)
[E9] = Formula.WorksheetFunction.vlookup(Range("A9"), wks.Range("A9:A28"), 1, False)

End Sub

Gruss

Robert


Anzeige
Re: VBA Vlookup
15.04.2003 11:20:17
Nike

Hi,
diese eckigen Klammern kenn ich gar nicht...

Range("E9").value = Formula.WorksheetFunction.vlookup(Range("A9"), wks.Range("A9:A28"), 1, False)

Muss der Bereich wks.Range("A9:A28")
nicht zwei Spalten umfassen um dann aus der zweiten Spalte das
vergleichsergebnis auszugeben?
also eher
Range("E9").value = Formula.WorksheetFunction.vlookup(Range("A9"), wks.Range("A9:B28"), 2, False)

Aber ich hab`s nich so mit sverweis ;-)

Bye

Nike

Re: VBA Vlookup
15.04.2003 15:26:32
Robert

Hallo Nike,

eckigen Klammern haben in Excel 2000, die gleiche Wirkung wie "range" oder "Cell"

Übrigens ich habe immer noch Probleme mit

Sub test2()

Dim wks As Worksheet
Set wks = Worksheets(2)
Range("E9").value = Formula.WorksheetFunction.vlookup(Range("A9"), wks.Range("A9:A28"), 1, False)("A9:A28"), 1, False)

End Sub

Es heisst halt immer wieder OBject required

Hast du noch irgend welche Ideen oder soll ich halt weiter schauen?

Gruss

Robert

Anzeige
Re: ohne Formula.
15.04.2003 15:53:35
Nike

Hi,
das kommt davon wenn man gepostetes ungelesen übernimmt ;-)
Range("E9").Value = ActiveSheet.WorksheetFunction.VLookup(Range("A9"), wks.Range("A9:B28"), 2, False)

Ich weiß nicht wie das Formula. vor WorksheetFunction
hingekommen ist...
Sorry.

Bye

Nike

74 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige