Sverweis Formulalocal und Variable
25.06.2018 10:30:34
Bastian
ich stehe vor einer Aufgabe, die ich nicht bewältigt bekommen.
Ich habe eine Bestandstabelle mit fast 20000 Einträgen, ein Arbeitsblatt, welches ab Zeile 25 Daten per SVerweis aus der Bestandstabelle einpflegt. Diese werden aber vorab gefiltert, sodass nur jeweils 50 - 70 Einträge bearbeitet werden. Es funktioniert, bis auf den Sverweis.
Ich schaffe es aber nicht eine Variable in den SVerweis zu bringen.
Hier mein Beispiel natürlich ohne den Zähler eingesetzt. Es soll A12 durch A & i ersetzt werden, _
mir fehlt dazu aber die Syntax:
Public Sub getdata()
Dim last As Integer
Dim i As Integer
last = ThisWorkbook.Sheets("Datenbestand").Cells(20000, 1).End(xlUp).Row
On Error Resume Next
For i = 25 To last
If Sheets("Arbeitsblatt").Rows(i).Hidden = False Then
ThisWorkbook.Sheets("Arbeitsblatt").Range("I" & i).FormulaLocal = "=SVERWEIS( _
A12;Datenbestand!A:L;11;FALSCH)" 'Alternativ über VLookup, bringt aber auch ohne Zähler _
nur eine leere Zeile
' ThisWorkbook.Sheets("Arbeitsblatt").Range("I" & i) = Worksheet.Function. _
VLookup([a12], Sheets("Datenbestand").[A:L], 11, False)
End If
Next i
End Sub
Vielen Dank im Voraus.