Hallo,
ich habe gerade dieses Macro RECORDED und dann einem Button zugewiesen. Nun taucht der Fehler wie im Bild auf. Ich habe keinen Plan warum...

Sub NoTables()
'
' NoTables Macro
'
'
Sheets("Test").Select
Range("A1").Select
Range("A1:CS300").Select
Selection.Copy
Sheets("NoTables").Select
Sheets("NoTables").Cells.Clear
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$CS$300"), , xlYes).Name = _
"Table_OP"
Range("Table_OP[#All]").Select
ActiveSheet.ListObjects("Table_OP ").TableStyle = "TableStyleLight8"
End Sub