VBA Vlookup
21.04.2021 20:17:05
Alexander
Das Problem ist in diesem Teil des Codes ich möchte gerne den Spaltenindex Dynamisch haben , also im Blatt Verhandlung in Zelle H2 steht denn die Spalte , welche er wiedergeben soll. Hier ist es in der Formel ja die 2 und die soll er sich dann aus H2 holen.
AlexWs.Range("G" & x).Value = Application.WorksheetFunction.VLookup( _
AlexWs.Range("B" & x).Value, dataRng, 2, False)
Sub kopieren()
Dim AlexWs As Worksheet, verhandlungWs As Worksheet
Dim AlexLastRow As Long, verhandlungLastRow As Long, x As Long
Dim dataRng As Range
Set AlexWs = ThisWorkbook.Worksheets("Alex") 'Definieren von Tabellenblatt
Set verhandlungWs = ThisWorkbook.Worksheets("verhandlung")
AlexLastRow = AlexWs.Range("B" & Rows.Count).End(xlUp).Row ' zieht sich hier die Daten für den Verlgeich der Spieler
dataLastRow = verhandlungWs.Range("B" & Rows.Count).End(xlUp).Row ' gegenprüfung in anderem Tabellenblatt
Set dataRng = verhandlungWs.Range("B2:C" & dataLastRow) ' Matrix für den Sverweis also wo soll gesucht werden
For x = 2 To AlexLastRow
On Error Resume Next
AlexWs.Range("G" & x).Value = Application.WorksheetFunction.VLookup( _
AlexWs.Range("B" & x).Value, dataRng, 2, False)
' Spalte G ist die Zieldatei , wohin kopiert werden soll , in diesem Fall das neue Gehalt
' Spalte B ist hier in der Zieldatei der vergleichswert vom gesuchten Spieler
Next x
End Sub