VLookup - Variablenzuweisung
15.10.2006 19:43:44
kocm@gmx.de
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?
Anzeige