Office: sverweis als schleife

Joao · 9. November 2016

Hallo

ich möchte gerne ein sverweis als schleife im VBA machen.

Angaben:
Suchkriterium: H3 bis ende
Matrix: CB3:CC113
Spaltenindex: 2

per Formel Funktioniert
Code:

=SVERWEIS(H3;CB$3:CC$7;2;FALSCH)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eine Schleife brauche ich, da der "Suchkriterium" täglich größer wird.
Code:

Option Explicit

Sub VBAsverweis()
Dim z As Long
Dim lz As Long
Dim s As Integer

lz = Range("H1048576").End(xlUp).Row
If Range("H1048576") "" Then lz = 61048576

On Error Resume Next
For z = 3 To lz
For s = 79 To 79
Cells(z, s).Value = WorksheetFunction.VLookup(Cells(z, 2).Value, Range("CB3:CC113"), s, False)
Next s
Next z

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Doch ich bekomme es nicht hin, mag mir jemand helfen.

Danke
Joao

:)

Klaus-Dieter · 10. November 2016

Hallo,

wozu soll das: For s = 79 To 79 gut sein? Da kannst du doch gleich den Wert 79 eintragen, (ohne Schleife).

Joao · 10. November 2016

OK,
habe es geändert.

Funktioniert leider immer noch nicht

Code:

Option Explicit

Sub VBAsverweis()
Dim z As Long
Dim lz As Long

lz = Range("H1048576").End(xlUp).Row
If Range("H1048576") "" Then lz = 61048576

On Error Resume Next
For z = 3 To lz
Cells(z, 79).Value = WorksheetFunction.VLookup(Cells(z, 2).Value, Range("CB3:CC113"), 79, False)
Next z

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Joao

Klaus-Dieter · 11. November 2016

Hallo,

deine Matrix umfasst nur zwei Spalten, dann kann in der 79. Spalte der Matrix natürlich nichts gefunden werden, weil es die nicht gibt.

Joao · 12. Januar 2021

von Klaus-Dieter

Hallo,

deine Matrix umfasst nur zwei Spalten, dann kann in der 79. Spalte der Matrix natürlich nichts gefunden werden, weil es die nicht gibt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich stehe auf dem Schlauch. *confused.gif*

In der 79. Spalte soll das Ergebnis geschrieben werden. *smashing

Joao

feliweb · 11. November 2016

Hey,

wenn dein sverweis dynamisch sein soll, würde ich dir empfehlen mit definierten Tabellen und Index-Vergleich zu arbeiten.

Siehe anbei

Klaus-Dieter · 11. November 2016

Hallo,

dann wollen wir doch mal deinen SVerweis auseinander drösseln:

WorksheetFunction.VLookup(Cells(z, 2).Value, Range("CB3:CC113"), 79, False)

Dein Suchbegriff ist der blau gefärbte Bereich.
Die Suchmatrix ist der grüne Bereich.
Die rote Farbe steht für die Spalte, in der gesucht wird, aber bezogen auf die Suchmatrix, nicht auf die Tabellenspalte.
False steht für eine genaue Übereinstimmung, die gefunden werden muss.

Joao · 11. November 2016

OK,

dann muss ich die 79 durch die 1 ersetzen, da 1 gesucht wird.

Funktioniert aber noch nicht.

Joao

OfficeUser · 12. Januar 2021

Hallo Joao,

so gehts bei mir problemlos: Code:

Option Explicit

Sub VBAsverweis()
Dim z As Long
Dim lz As Long
Dim s As Integer

lz = Range("H1048576").End(xlUp).Row
If Range("H1048576") "" Then lz = 61048576

On Error Resume Next
For z = 3 To lz
Cells(z, "CA").Value = WorksheetFunction.VLookup(Cells(z, "H").Value, Range("CB3:CC113"), 2, False)
Next z

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tabelle1

H BZ CA CB CC CD CE CF
1 VBA Formel
2 Suchkriterium Ausgabe Matrix Ausgabe
3 Schnitzel Fleisch Apfel Frucht Fleisch
4 Forelle Fisch Birne Frucht Fisch
5 Makrele Fisch Schnitzel Fleisch Fisch
6 Apfel Frucht Forelle Fisch Frucht
7 Forelle Fisch Makrele Fisch Fisch
8 Birne Frucht Frucht
9 Forelle Fisch Fisch
10 Birne Frucht Frucht
11
Zelle Formel
CF3 =SVERWEIS(H3;CB:CC;2;FALSCH)
CF4 =SVERWEIS(H4;CB:CC;2;FALSCH)
CF5 =SVERWEIS(H5;CB:CC;2;FALSCH)
CF6 =SVERWEIS(H6;CB:CC;2;FALSCH)
CF7 =SVERWEIS(H7;CB:CC;2;FALSCH)
CF8 =SVERWEIS(H8;CB:CC;2;FALSCH)
CF9 =SVERWEIS(H9;CB:CC;2;FALSCH)
CF10 =SVERWEIS(H10;CB:CC;2;FALSCH)
Excel Tabellen im Web darstellen >>

Office: sverweis als schleife

sverweis als schleife

sverweis als schleife

sverweis als schleife

sverweis als schleife

sverweis als schleife - Similar Threads - sverweis schleife

XVERWEIS, SVERWEIS: Nur unter bestimmter Bedingung ausgeben, sonst weitersuchen

Sverweis mehrere suchkriterien

Fehler beim SVERWEIS Vermeidbar?

Adresse aus Teilen eines Nummernblocks einfügen

Reitername immer anders, wie muss der Sverweis lauten

SVERWEIS mit Range von bis funktioniert nicht?

SVERWEIS zeigt #NV an

	H	BZ	CA	CB	CC	CD	CE	CF
1			VBA					Formel
2	Suchkriterium		Ausgabe	Matrix				Ausgabe
3	Schnitzel		Fleisch	Apfel	Frucht			Fleisch
4	Forelle		Fisch	Birne	Frucht			Fisch
5	Makrele		Fisch	Schnitzel	Fleisch			Fisch
6	Apfel		Frucht	Forelle	Fisch			Frucht
7	Forelle		Fisch	Makrele	Fisch			Fisch
8	Birne		Frucht					Frucht
9	Forelle		Fisch					Fisch
10	Birne		Frucht					Frucht
11

Zelle	Formel
CF3	=SVERWEIS(H3;CB:CC;2;FALSCH)
CF4	=SVERWEIS(H4;CB:CC;2;FALSCH)
CF5	=SVERWEIS(H5;CB:CC;2;FALSCH)
CF6	=SVERWEIS(H6;CB:CC;2;FALSCH)
CF7	=SVERWEIS(H7;CB:CC;2;FALSCH)
CF8	=SVERWEIS(H8;CB:CC;2;FALSCH)
CF9	=SVERWEIS(H9;CB:CC;2;FALSCH)
CF10	=SVERWEIS(H10;CB:CC;2;FALSCH)