Excel-Makro VBA auf Vlookup Formel

Question

Hallo, ich bin neu zu Excel-Makro. Ich wollte ein Makro für vlookup erstellen, so dass ich auf viele Zellen anwenden kann, aber es funktioniert nicht.

Sub haha() 

Dim wb As Workbook 
Dim ws, ws1 As Worksheet 
Set wb = ActiveWorkbook 
Set ws = ActiveWorkbook.Sheets(1) 
Set ws1 = ActiveWorkbook.Sheets(2) 
wb.Activate 

ws1.Select 

Range("E1").Formula = "=+VLOOKUP(" & ws1.Range("C6") & "," & ws.Range("c7:d10") & ",2,FALSE)" 

End sub 

Ich wollte einen Wert in meinem aktuellen Blatt auf ein anderes Blatt Palette sehen einen eindeutigen Wert zurückzukehren. Bitte helfen Sie! :)

Answer 1

ersetzen Sie einfach diese drei Linien:

wb.Activate 
ws1.Select 
Range("E1").Formula = "=+VLOOKUP(" & ws1.Range("C6") & "," & ws.Range("c7:d10") & ",2,FALSE)" 

mit diesem:

ws1.Range("E1").Formula = "=VLOOKUP(C6," & ws.Range("C7:D10").Address(External:=1) & ",2,FALSE)" 

Im ws1.Range("C6") Teil der sheet und address sind in diesem Fall nicht erforderlich, da die Zelle im selben Blatt, wo die Formel so geht ws1.Range("C6") wird immer C6 zurückgeben.

Wie für den ws.Range("c7:d10") Teil benötigen Sie die "externe Referenz", weil es sich auf ein anderes Blatt bezieht. Obwohl der External-Verweis des Range.Address Property den Dateinamen enthält, wird es gelöscht, da die Formel in derselben Arbeitsmappe enthalten ist.

Answer 2

Überprüfen Sie dies.

Sub haha() 

Dim wb As Workbook 
Dim ws As Worksheet, ws1 As Worksheet 
Dim rng As Range 
Set wb = ActiveWorkbook 
Set ws = ActiveWorkbook.Sheets(1) 
Set ws1 = ActiveWorkbook.Sheets(2) 
wb.Activate 

Set rng = ws.Range("c7:d10") 
ws1.Range("E1").Formula = "=VLOOKUP(" & ws1.Range("C6").Address & "," & rng.Worksheet.Name & "!" & rng.Address & ",2,FALSE)" 

End Sub