Hallo
Vielen Dank für die Rückmeldung. Ich habe den Vorschlag beherzigt und die Formel in eine Variable gepackt.
Leider schaffe ich es immer noch nicht, das Tabellenblatt (Tab1) als Variable (d) in der Formel zu definieren, der Rest klappt nun.
So müsste das Resultat der Formel aussehen:
=SVERWEIS(A:A;Tab1!A1:B5;2;0)
Für Eure Unterstützung wäre ich sehr dankbar.
Viele Grüsse,
Jörg
Sub Makro1()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Variant
Dim strPA As String
a = -1
b = 4
c = 2
d = Tab1
strPA = "=VLOOKUP(C[-1]," & d & "!RC[" & a & "]:R[" & b & "]C," & c & ",0)" '
MsgBox strPA
Range("B1") = strPA
End Sub
|