Sub BeispielCopy()
Dim sh As Worksheet
' Warum funktioniert das hier ...
Worksheets("Tabelle1").Copy before:=Worksheets("Tabelle1")
Set sh = ActiveSheet
' ... und hier kommt: Laufzeitfehler 424 "Objekt erforderlich".
Set sh = Worksheets("Tabelle1").Copy(before:=Worksheets("Tabelle1"))
' Hat jemand direkt über Set ... eine Lösung?
End Sub