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