eine Formel
=WENNFEHLER(SVERWEIS(LINKS(A2;FINDEN("(";A2)-2);FilmDb!A:B;2;0);LINKS(A2;FINDEN("(";A2)-2))
soll in Spalte B2:B5000 eingefügt werden. Habe es mit Makrorecorder versucht aber funktioniert nicht.
Kann mir schnell jemand helfen?
Public Sub Test()
Range("B2:B5000").Formula2R1C1Local = "=WENNFEHLER(SVERWEIS(LINKS(Z(1)S;" & _
"FINDEN(""("";Z(1)S)-2);FilmDb!S:S(1);2;0);LINKS(Z(1)S;FINDEN(""("";Z(1)S)-2))"
End Sub
Public Sub Test()
Worksheets("FilmeAnsehen").Activate
Range("B2").Activate
Range("B2:B5000").FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(LINKS(Z(1)S;" & _
"FINDEN(""("";Z(1)S)-2);FilmDb!S:S(1);2;0);LINKS(Z(1)S;FINDEN(""("";Z(1)S)-2))"
End Sub
Public Sub Test()
Worksheets("FilmeAnsehen").Range("B2:B5000").FormulaR1C1Local = _
"=WENNFEHLER(SVERWEIS(LINKS(ZS(-1);FINDEN(""("";ZS(-1))-2);" & _
"FilmDb!S(-1):S;2;0);LINKS(ZS(-1);FINDEN(""("";ZS(-1))-2))"
End Sub