SVerweis mit VBA

Rainer · 2007-08-09T10:20:40+00:00

Hallo zusammen Ich habe 2 files. Das eine Heisst AAA, das andere heisst BBB. in Spalte A des files AAA habe ich das Kriterium. Nach diesem möchte ich in der Matrix, die im File BBB in Spalte A und B liegt, suchen. Die Werte Sollen in der Spalte B des Files AAA ausgegeben werden. Ein kleines Problemchen ist, dass ich nicht sagen kann, wie viele Einträge/Zellen ich in der Spalte des Kriteriums und der Matrix habe. Dies sollte das Makro aufgrund der Anzahl Einträge merken und keinen Fehler generieren. Wiess hier jemand Bescheid? Die Ergebnisse der Archivsuche konnte ich leider nicht zu meinem Nutzen verändern. Danke für eure Hilfe gruss rainer

bitte entschuldige dei Unklarheit.
da ich ein Fehler im File entdeckt habe, hier nochmals die Files:
AAA: https://www.herber.de/bbs/user/44910.xls
BBB: https://www.herber.de/bbs/user/44909.xls
Ich möchte, dass die Substantive in der Spalte B, der datei BBB zu den Zahlen in der Spalte A, Datei AAA wiedergegeben werden. Es soll eigentlich ein normaler sverweis gemacht werden.
In der Zelle B2 (Datei AAA, gelb markiert) steht dann Baum, in B3 Mühle, etc.
Wie zu Beginn angetönt wird die Matrix (hier im File BBB) nie gleich lang sein wie die Anazhl Zahlen im File AAA. durch den VBA Befehl sollten aber zu allen Zahlen im File AAA die Substantive zugeordnet werden, auch wenn diese jeweils ändert. (ich habe monatliche datenfiles die unterschiedlich und unabsehbar gross sind. dh. deren Anzahl beschriebene Zeilen variert)
besten Dank für deine Hilfe.
gruss
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

Forumthread: SVerweis mit VBA

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

SVerweis mit VBA

Forumthread: SVerweis mit VBA

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread