|
Hallo Leute!
Ich versuche gerade ein SVERWEIS zu programmieren. Ich habe bereits was ähnliches gegoogelt, allerdings funktioniert es bei mir nicht. Vllt kann mir jemand damit helfen, weil ich ehrlich gesagt nicht viel davon versteh.
Ich habe die Spalte I (9) (Tabelle 1) mit der Nummer und eine Matrix (Tabelle 2) und in dieser soll in Spalte A (1) die Nummer gesucht und die Spalte AT (46) soll in der Tabelle 1 in Spalte J (10) wiedergegeben werden. Die Tabelle 1 wird jedes mal um unbestimmte Zeilen erweitert (täglich) und daher soll sich die Spalte J immer miterweitert werden. Wenns geht, ohne dass es immer wieder von oben anfängt. Das habe ich bisher:
'SVerweis für Spalte J
Dim z As Long
Dim lz As Long
Dim s As Integer
lz = Range("A65536").End(xlUp).Row
If Range("A65536") <> "" Then lz = 65536
On Error Resume Next
For z = 1 To lz
For s = 46 To 46
Cells(z, s).Value = WorksheetFunction.VLookup(Cells(z, 1).Value, Range("Matrix"), s, False)
If Err.Number > 0 Then
Err.Clear
Cells(z, s) = "#NV!"
End If
Next s
Next z
Ich verstehe nicht den ganzen Code, würde mich daher freuen, wenn mir jemand weiterhilft!
Danke!
VG
|