AW: SVerweis mit VBA
09.08.2007 14:15:26
Rainer
ich habe im archiv folgendes gefunden: ich möchte eigentlich genau das, nur weiss ich nicht wie ich das ändern muss, dass es auf meine files passt:
Hallo zusammen,
vielleicht kann mir jemand bei folgendem Problem behilflich sein:
Ich möchte einen sverweis per VBA ausführen. Einem Wert aus der Spalte A ( Zelle A1 ) möchte ich per sverweis einen Wert aus einer sog. "Testmatrix" in der Zelle B1 zuordnen. Es sollen nur Werte in B1 eingefügt werden - keine Formeln !!
Außerdem soll für jeden Wert in Spalte A diese Prozedur durchgeführt werden. Die Anzahl der Werte in Spalte A ist variabel. Demnach sollte die VBA Programmierung auch variable gestaltet sein.
Danach müssen elf weitere Spalten mit sverweisen gefüllt werden (Spalten C - M). Das Prinzip ist das gleiche wie in Spalte B. (-> nicht zwingend)
Hallo Thomas,
so?
Sub test()
Dim z As Long, lz As Long, s As Integer
lz = Range("A65536").End(xlUp).Row
If Range("A65536") "" Then lz = 65536
On Error Resume Next
For z = 1 To lz 'Zeilen
For s = 2 To 2 'Spalten, kann erweitert werden
Cells(z, s).Value = WorksheetFunction.VLookup(Cells(z, 1).Value, Range("Testmatrix"), s, _
False)
If Err.Number > 0 Then
Err.Clear
Cells(z, s) = "#NV!"
End If
Next s
Next z
End Sub
ich wäre echt super dankbar wenn du mir weiterhelfen könntest.
gracias!
rainer