Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
836to840
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

WorksheetFunction.vloopup Argument nicht optional

WorksheetFunction.vloopup Argument nicht optional
11.01.2007 07:54:55
Peter
Guten Tag
Ich versuche eine SVERWEIS Formel, die in Tabelle C4 steht in eine WorksheetFunction umzusetzen.
zNr (long) hat den Wert 4
Ich erhalte folgende Fehlermeldung:
Fehler beim Kompilieren: Argument ist nicht optional
Kann mir jemand weiterhelfen? Was habe ich nicht richtig umgesetzt?
Danke für eine Rückmeldung!
Gruss, Peter
Ursprüngliche Formel:
=SVERWEIS(B4;ToolProjekt;3;FALSCH)
WorksheetFunction:
.Cells(zNr, 3) = WorksheetFunction.VLookup("B" & zNr & ",ToolProjekt,3,FALSCH")

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WorksheetFunction.vloopup Argument nicht optional
11.01.2007 08:25:51
chris
hallo, wenn ich dich richtig verstanden habe sollte das dir helfen.

Sub neu()
Range("A1").Formula = "=VLookup(A4,ToolProjekt, 3, 0)"
End Sub

gruß Chris
AW: WorksheetFunction.vloopup Argument nicht optional
11.01.2007 08:43:16
Peter
Hallo Chris
Vielen Dank für die Rückmeldung.
Ich will in die Zelle den Wert, den die Formel ergibt eintragen und nicht die Formel selbst. Deshalb versuche ich mit WorksheetFunction.
In der Zwischenzeit habe ich die Formel etwas abgeändert, es funktioniert leider immer noch nicht (Fehlermeldung: Laufzeitfehler '1004': Die VLookup-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden)
.Cells(zNr, 3) = WorksheetFunction.VLookup(Worksheets("Dateien").Cells(4, 3), Worksheets("Import").Range("ToolProjekt"), 3, False)
B4 befindet isch im Worksheet "Dateien"
Der abzufragende Bereich (benannt mit "ToolProjekt") befindet sich im Worksheet "Import".
Was mache ich falsch?
Danke für eine Rückmeldung.
Gruss, Peter
Anzeige
AW: WorksheetFunction.vloopup Argument nicht optional
11.01.2007 09:55:41
chris
das geht dann so Peter.

Sub Test()
was = Worksheets("Dateien").Range("b4")
wo = Worksheets("Import").Range("C1:D4")
varTest = Application.VLookup(was, wo, 2, 0)
MsgBox "Wert: " & varTest
End Sub

AW: WorksheetFunction.vloopup Argument nicht optional
11.01.2007 10:17:00
Peter
Hallo Chris
Danke für die Rückmeldung. Nach einer Kaffeepause habe ich heruasgefunden, dass ich auf eine falsche Spalte referenziert habe ( .cells(4,3) anstelle ( .cells(4,2) resp. .cells(zNr, 2) )
Ich "muss" das ganze in eine Codezeile packen, da ich den Code mehrmals wiederholen muss.
Nochmals dankeschön für die Rückmeldung.
Peter
.Cells(zNr, 3) = WorksheetFunction.VLookup(Worksheets("Dateien").Cells(zNr, 2), Worksheets("Import").Range("ToolProjekt"), 3, False
Anzeige

25 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige