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
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VLookup - Variablenzuweisung

VLookup - Variablenzuweisung
15.10.2006 19:43:44
kocm@gmx.de
Hi ihr Lieben,
Ihr seht mich einigermaßen ratlos.
Folgendes Makro habe ich geschrieben:

Sub Verweis()
Dim vers&
Dim lz&
Dim z&
vers = Worksheets("DLDB").Range("B65536").End(xlUp).Row
Worksheets("Ziel").Activate
lz = Range("B65536").End(xlUp).Row
For z = 2 To lz
-->    Cells(z, 3) = WorksheetFunction.VLookup(Cells(z, 2), Worksheets("DLDB").Range(Cells(2, 1), Cells(vers, 2)), 2, False) <--
If Err.Number > 0 Then
Err.Clear
Cells(z, 3) = "#NV!"
End If
Next z
End Sub

Funzt leider nicht.
Wenn ich dagegen die markierte Zeile durch
Cells(z, 3) = WorksheetFunction.VLookup(Cells(z, 2), Worksheets("DLDB").Range("A2:B85"), 2, False)
ersetze, also 85 statt "vers" einsetze und nicht "cells" verwende, ist allet schick. Ich brauche aber die letzte Zelle des Tabellenblattes "Ziel". Was muß ich machen, damit es klappt?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VLookup - Variablenzuweisung
15.10.2006 19:53:39
Kay
Hallo kocm@gmx.de,
versuche es mal hiermit:
Cells(z, 3) = WorksheetFunction.VLookup(Cells(z, 2), Worksheets("DLDB").Range("A2:B" & vers), 2, False)
MfG
Kay
AW: VLookup - Variablenzuweisung
15.10.2006 21:33:09
Peter
Guten Abend Kay.
Deine Lösung funktioniert klasse. Zusätzlich habe ich noch den Begriff "WorksheetFunction" durch "Application" ersetzt - war auch irgendwo gepostet.
Schönen Dank für den schnellen Tipp!
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige