Hallo Zusammen!
Ich habe eine Frage zu meinem SVerweis. Dies ist mein Code, der auch funktioniert:
Sub Sverweis_test()
Dim z As Long
Dim lz As Long
lz = Range("A999999").End(xlUp).Row
On Error Resume Next
For z = 1 To lz
Cells(z, "N").Value = WorksheetFunction.VLookup(Cells(z, "A").Value, Range("A1:C113"), 3, False)
Next z
End Sub
Jedoch möchte ich, dass die Source der Daten aus einem anderen Worksheet kommt, nicht von Tabelle 1. Wie kann ich diese 2 Worksheets (einmal tabelle1, wo die Daten hinkommen sollen), und Sourcesheet (so nenne ich sie mal, wo die Daten herkommen sollen) im Code vereinen?
Also ich vermute, Cells(z, "A").Value
Teil muss geändert werden, aber mit Worksheets.Range etc. bekam ich leider eine Fehlermeldung.
Ich bedanke mich für eure Mühe!
Schönes Wochenende!
|