Schaltfläche

hm, als Schaltfläche auf einer Tabelle funktioniert es aber als Schaltfläche in einer Userform nicht, es tut sich gar nichts keine Fehler oder ähnliches.

Hier der Code:

Sub Uebertrag2()
Range(Cells(Cells(1, 3), 1), Cells(Cells(1, 3), 100)).Copy Sheets("Tabelle2").Cells(2, 1)
End Sub

Weiß da jemand Abhilfe

Schon mal Danke und einen Schönen Sonntag