Grüße euch,
ich weis leider nicht warum, aber ab und zu werden nicht die Werte kopiert sondern die Bezüge der Tabelle , somit kommt dann in der neuen Arbeitsmappe die Fehlermeldung „#Bezug!“.
Deshalb wäre es schön einen „Parameter“ einzufügen um sicherzustellen das nur die Werte kopiert werden.
Kenne mich leider zu wenig aus, habe diesen Code aus Foren zusammengebastelt.

Sub BereichAkontorauskopieren()
Dim rng As Range
Dim wb_new As Workbook
Set rng = Tabelle3.ListObjects("BankAkonto").Range
rng.AutoFilter 1, "0"
Set wb_new = Workbooks.Add
rng.SpecialCells(xlCellTypeVisible).Copy wb_new.Worksheets(1).Range("A1")

'es sollten nur die Werte kopiert werden

Columns("A:B").Delete
wb_new.SaveAs ThisWorkbook.Path & "\BANK_Akonto_Buchung.xlsx"
Windows("BANK_Akonto_Buchung.xlsx").Activate
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\BMD_BANK_Akonto_Buchung.csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
End Sub

hoffe es hat jemand eine Idee :)

Gruß Thomas