Hallo zusammen,

ich habe eine Makro aufgenommen für einen SVerweis.
Wenn ich es auf dem Ziel-Tabellenblatt ausführe funktioniert es einwandfrei.

Ich habe aber noch ein anderes Tabellenblatt worauf ich mit Actionbuttons (Über Entwicklertools) meine Makros ausführen möchte.

Von dort bekomme ich aber folgende Fehlermeldung:
Laufzeitfehler 1004: Die Select Methode des Range Objektes konnte nicht ausgeführt werden.

Beim Debuggen wird mir dann folgende Zeile gelb markiert:
Worksheets("bereinigt"). Range("A2").Select

Könntet ihr mir bitte mit der Formel helfen, dass ich die Aktion über ein anderes Tabellenblatt ausgeführt bekomme?

Vielen Dank im Vorhinein.

Viele Grüße

Jan

Die Formel:
Sub test_SVERWEIS_Kostenbereich()

Worksheets("bereinigt").Range("A2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP([@Kostenart],'Abfrage Bereiche'!C:C[1],2,FALSE)"
Range("A2").Select
Selection.AutoFill Destination:=Range("bereinigt[Kostenbereich]")
Range("bereinigt[Kostenbereich]").Select
Range("A2").Select

End Sub