Intelligente Tabelle wird nicht mit kopiert
26.08.2024 09:25:44
Bonzai1102
ich kopiere mit diesem Code 3 Tabellenblätter in eine neue Mappe.
Das funktioniert auch recht gut.
Das Problem: Alle Blätter enthalten eine intelligente Tabelle, die auch mit kopiert werden soll.
In das Tabellenblatt "NL" werden aber nur die Werte kopiert, bei den anderen beiden Blättern ist aber auch die intelligente Tabelle da.
Option Explicit
Public Sub sd_copy_all()
Application.ScreenUpdating = False
Worksheets(Array("NL", "B", "F")).copy
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, _
(InStrRev(ThisWorkbook.Name, ".") - 1)) & Format(Now, "_DD_MM_YYYY") & ".xlsx", 51
.Close False
End With
Application.ScreenUpdating = True
Worksheets("Menu").Select
End Sub
Kann mir da vielleicht jemand helfen?
Danke im Voraus.
Anzeige