Arbeitsblätter kopieren - Format behalten
29.03.2019 14:04:00
Kai
ich habe das folgende Makro zum Laufen bekommen, mit Hilfe von hier.
Jetzt habe ich das Problem, dass von den genannten 5 Tabellen, die Formate der einzelnen Tabellen mit übertragen werden sollen, aber das funktioniert leider nicht.
Ich habe Spalten, dort stehen Zahlen mit führenden Nullen drin, erstellt das Makro die neue Datei, dann fallen die führenden Nullen bei den diversen Spalten raus. Ich benötige diese Zahlen allerdings mit führenden Nullen und Text.
Kann mir hier noch jemand weiterhelfen? Anbei das VBA-Modul:
Sub SAP_anlegen_NEU()
Dim CN
Dim Neuer_Dateiname
Dim i As Integer
Dim WBS As Workbook
Dim qt As QueryTable
Dim lo As ListObject
Dim WS As Worksheet
With Worksheets(Array("PR Master Header", "PR Master Prepayments", "PR Master Recoveries", "PR _
_
Master Accounting", "PR Master Interest"))
.Copy
Set WBS = ActiveWorkbook
For Each WS In WBS.Worksheets
WS.UsedRange.Value = WS.UsedRange.Value
Next WS
End With
ActiveWorkbook.Connections("Abfrage - PR Master Accounting").Delete
ActiveWorkbook.Connections("Abfrage - PR Master Header").Delete
ActiveWorkbook.Connections("Abfrage - PR Master Interest").Delete
ActiveWorkbook.Connections("Abfrage - PR Master Prepayment").Delete
ActiveWorkbook.Connections("Abfrage - PR Master Recoveries").Delete
Application.CutCopyMode = False
i = MsgBox("Speichern?" & Chr(13) & _
"" & Chr(13) & _
"Sicher? Dann OK, sonst ABBRECHEN" & Chr(13), 1 + vbExclamation, "SAP-Upload Datei")
If i = 2 Then Exit Sub
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="SAP Upload Datei per", _
fileFilter:="Excel-Arbeitsmappe, *.xlsx")
If Neuer_Dateiname = False Then Exit Sub
WBS.SaveAs Filename:=Neuer_Dateiname
End Sub