Clever-Excel-Forum

Normale Version: VLookup - Suchen und Kopieren
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo zusammen,

seit einer Weile bin ich stiller Mitleser. Nun muss ich selbst mal etwas fragen, zu dem ich bisher nichts gefunden habe. 

Ich würde gerne vergleichen, ob ein Wert aus Spalte "fb_RX" auch in Spalte "db_RX" auftaucht. Falls ja, soll der Wert aus Spalte "fb_result" in der gleichen Zeile in die Spalte "db_result" in der gleichen Zeile kopiert werden. 


fb_rx und fb_result befinden sich auf dem gleichen Tabellenblatt
db_rx und db_result befinden sich auf dem gleichen Tabellenblatt


Ich denke, dass lässt sich am besten mit Vloopup umsetzen. Ich habe aber keine Ahnung wie.. 
Ist unbedingt eine Schleife notwendig, dass mein Makro zur nächsten Zeile in fb_RX springt oder lässt sich das komplett über VLookUp regeln? 

Vielen lieben Dank im Vorraus.

mk
Hola,

Spalten heißen nicht "fb_RX" sondern A, B, C..von daher kann dir hier auch niemand den Sverweis schreiben.

Gruß,
steve1da
(08.08.2019, 14:53)steve1da schrieb: [ -> ]Hola,

Spalten heißen nicht "fb_RX" sondern A, B, C..von daher kann dir hier auch niemand den Sverweis schreiben.

Gruß,
steve1da

Hi Steve, 

wenn mir jmd. auf die Sprünge hilft, wäre es mir auch lieber, als mir den Code zu schreiben. ;) 
Ich will das per VBA umsetzen. 
Die Spalten sind so benannt, wie oben genannt. 

VG,
mk
Das ändert nichts daran, dass deine "Spaltenbenennung" für VBA uninteressant ist. Es zählt die Spaltennummer oder der Spaltenbuchstabe. Ansonsten müsste VBA jedesmal erst nach deiner Benennung suchen, um überhaupt mal die Suchspalte zu ermitteln.
SVERWEIS ist eine Möglichkeit, ich würde aber eher über

Code:
Application.WorksheetFunction.CountIf(...)

suchen, also zB so



Code:
If Application.WorksheetFunction.CountIf(Columns("C"), Cells(1, "A")) > 0 Then Cells(1, "D") = Cells(1, "B")

Ob du eine Schleife benötigst oder nicht, weißt nur du. Willst du eine Liste durchackern?


Code:
For i = 2 to 1000
If Application.WorksheetFunction.CountIf(Columns("C"), Cells(i, "A")) > 0 Then Cells(i, "D") = Cells(i, "B")
Next i