VBA-Zelleintrag mit Funktion Verweis
15.11.2006 09:55:20
Peter
Sub Wert_aus_Verweis()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim zNr As Long
Guten Tag
Ich möchte in einer Tabelle (variable Anzahl Zeilen) in einer Spalte Werte mit Hilfe einer Lookup-Funktion Werte aus einer anderen Tabelle übernehmen.
Beispiel:
In Spalte D steht eine Kundennummer, die ich nun mit dem entsprechenden Kundennamen in Spalte E ergänzen möchte.
In einer anderen Tabelle im gleichen Workbook habe ich eine Tabelle mit Kundennummer und Kundennamen. Die beiden Spalten bilden einen Bereich, der mit Nummer_Name benannt ist. Wenn ich mittels Formel eine Abfrage eintragen würde, würde diese (in Zeile 5) wie folgt lauten:
=SVERWEIS(D5;Nummer_Name;2;FALSCH)
Wie kann ich diese Funktion sinngemäss in meinem Code (vgl. nachstehend) integrieren?
Vielen Dank für eine Rückmeldung.
Peter
Set aBook = ThisWorkbook
Set aSheet = aBook.ActiveSheet
With aSheet
zNr = 5
Do While .Cells(zNr, 4) <> ""
.Cells(zNr, 5) = VERWEIS 'hier brauche ich Hilfe
zNr = zNr + 1
Loop
End With
End Sub