Tabelle in geschlossene Mappe kopieren
30.06.2022 23:57:19
BriBri
ich fürchte, ich brauche nochmals eure Hilfe. Ich komme einfach nicht weiter.
Mit dem untenstehenden Code wird eine neue Datei (Zieldatei) erstellt, die im Dateinamen u.a. den Inhalt von B1 (Kundennamen) enthält und in die eine Tabelle Order 1 kopiert wird, und dann auf Order umbenannt wird. Nun möchte ich in diese geschlossene Datei eine weitere Tabelle kopieren, die in der Quelldatei ATP1 und in der Zieldatei ATP heißen soll. In der Quelldatei soll dann Tabelle ATP1 gelöscht werden.
Danke für eure Hilfe.
Gruß Brigitte
Option Explicit
Public Sub Main2()
'Neue Mappe mit "Customer Name_calc_Datum" wird im selben Ordner wie CalcTool angelegt
Dim strName As String
Application.ScreenUpdating = False
strName = Range("B1")
Worksheets("Order 1").Copy
With ActiveSheet.UsedRange
.Value = .Value
End With
ActiveSheet.Name = "Order"
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & strName & "_calc" & Format(Date, "_DD_MM_YYYY"), 51
.Close False
End With
Application.DisplayAlerts = False
Worksheets("Order 1").Delete
Application.ScreenUpdating = True
End Sub
Anzeige